VB中给Listview添加数据成功，用VBS怎么就不行了呢，要怎么修改？-技术论坛-工业支持中心-西门子中国

VB中给Listview添加数据成功，用VBS怎么就不行了呢，要怎么修改？

晴蓝海

帖子

4
精华

0
被关注

0

论坛等级：游民

注册时间：2012-11-23

普通如何晋级?

VB中给Listview添加数据成功，用VBS怎么就不行了呢，要怎么修改？

2090

7

2013-09-18 22:00:40

下面这段代码是在VB中对Listview控件添加数据的，我试过的可以的
Dim oItem As ListItem
Private Sub Form_Load()
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "序号"
ListView1.ColumnHeaders.Add , , "时间"
ListView1.ColumnHeaders.Add , , "日期"
ListView1.ColumnHeaders.Add , , "备注"
ListView1.ListItems.Add , , "1"
ListView1.ListItems(1).SubItems(1) = "00:00:00"
ListView1.ListItems(1).SubItems(2) = "2008-01-01"
ListView1.ListItems(1).SubItems(3) = "(无)"
ListView1.ListItems.Add , , "2"
ListView1.ListItems(2).SubItems(1) = "00:00:01"
ListView1.ListItems(2).SubItems(2) = "2008-01-01"
ListView1.ListItems(2).SubItems(3) = "(无)"
End Sub
下面我想在Wincc中用VBS给Listview添加数据，于是对上面的这段代码修改了一下，可是还是不行，还要进行哪些修改呢？
Dim oItem
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "序号"
ListView1.ColumnHeaders.Add , , "时间"
ListView1.ColumnHeaders.Add , , "日期"
ListView1.ColumnHeaders.Add , , "备注"
ListView1.ListItems.Add , , "1"
ListView1.ListItems(1).SubItems(1) = "00:00:00"
ListView1.ListItems(1).SubItems(2) = "2008-01-01"
ListView1.ListItems(1).SubItems(3) = "(无)"
ListView1.ListItems.Add , , "2"
ListView1.ListItems(2).SubItems(1) = "00:00:01"
ListView1.ListItems(2).SubItems(2) = "2008-01-01"
ListView1.ListItems(2).SubItems(3) = "(无)"
End Sub