大家看一看小弟我这段代码，是在WINCC里用的。为什么在LISTVIEW里不显示结果呢。大家帮帮小弟我

大家看一看我这段代码，是在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))