Public Values() As String '房态表中定义同一天重复排房的客户姓名的数组
Dim s1 As String
s1=CurrentTable.value
Values = s1.split(",")
for i as integer = 0 to values.length-1
e.Form.Controls("ListBox1").items.add(values(i))
加好友 
发短信
Post By：2014/6/11 23:48:00 [显示全部帖子]
