发布于 2013-09-21 21:24:14
3楼
不知道为什么,按下面的 写法就可以了,在WinCC V6.0里测试通过
Dim oItem,listview1
Set listview1 = ScreenItems("listview1")
listview1.ColumnHeaders.Clear
listview1.ColumnHeaders.Add , , "序号"
listview1.ColumnHeaders.Add , , "时间"
listview1.ColumnHeaders.Add , , "日期"
listview1.ColumnHeaders.Add , , "备注"
listview1.ListItems.Add , , "1"
listview1.ListItems.Item(1).SubITems(1) ="00:00:00"
listview1.ListItems.Item(1).SubITems(2) = "2008-01-01"
listview1.ListItems.Item(1).SubITems(3) = "(无)"
listview1.ListItems.Add , , "2"
listview1.ListItems.Item(2).SubItems(1) = "00:00:01"
listview1.ListItems.Item(2).SubItems(2) = "2008-01-01"
listview1.ListItems.Item(2).SubItems(3) = "(无)"