前面博客记录了ListView增加行、列、显示sql数据表以及添加checkbox列的方法，本文记录修改ListView已有单元格数据的方法。假设画面上有一个ListView控件，名字叫做LV，已经导入了数据，现在想修改第三行第四列的数据，有一个按钮，按钮的鼠标点击事件添加以下vbs脚本：

Sub OnClick(ByVal Item)                                
Dim LV
Set LV=ScreenItems("LV")
LV.listitems.item(3).listsubitems.item(4)=4321
End Sub

如果同时需要修改第二行记录多个字段数值，可以这样写脚本：

Sub OnClick(ByVal Item)                                
Dim LV,itemx
Set LV=ScreenItems("LV")
Set itemx=LV.listitems.item(2)

with itemx
      .Listsubitems.item(1)=1234

      .Listsubitems.item(2)=2345

      .Listsubitems.item(3)=3456

      .Listsubitems.item(4)=4567

End With
End Sub