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,"操作提示")

没有一个回贴的呀！我现在就想要结果了，急！大家帮帮忙啊！