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")   &;#39;用记录集填充标准 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   &;#39;cc=cc &; aa(i) &; vbCrLf
bb=SpLit(aA(i),".",-1)    Set oItem=listView1.ListItems.Add()
   
     OItem.SubItems(1)=CStr(bb(0))
     
     &;#39;OItem.SubItems(2)=CStr(bb(1))
     j=MsgBox(BB(0),vbOKCancel,"操作提示")
     n=n 1   next
ELSE
End If
   j=MsgBox(N,vbOKCancel,"操作提示")