大家看一看我这段代码，是在WINCC里用的。为什么在LISTVIEW里不显示结果呢。大家帮帮我！
Dim aa,bb,n,cc
Dim s,oItem
Dim i,j,ListView1
Set s=HMIRuntime.Tags( "MyTag ")

aa=Split(s.Read, ", ",-1)
Set ListView1=ScreenItems( "ListTable ")

'用记录集填充标准 listview 对象
listview1.listitems.clear
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add ,, " 操作计算机 ",100
ListView1.ColumnHeaders.Add ,, "序号 ",60
ListView1.ColumnHeaders.Add ,, " 操作计算机 ",60
iF uBoUnD(aA)> 0 THEN
For i=0 to UBound(aa) Step 1

'cc=cc & aa(i) & vbCrLf
bb=SpLit(aA(i), ". ",-1)

Set oItem=listView1.ListItems.Add()

OItem.SubItems(1)=CStr(bb(0))

'OItem.SubItems(2)=CStr(bb(1))
j=MsgBox(BB(0),vbOKCancel, "操作提示 ")
n=n+1

next
ELSE
End If
j=MsgBox(N,vbOKCancel, "操作提示 ")


[解决办法]
把这一段改变一下
Set oItem=listView1.ListItems.Add()

OItem.text=CStr(bb(0))