[bo][un]yms123[/un] 在 2008-10-12 11:52 的发言:[/bo]
Dim i,TestAry(3)
TestAry(0)="张三"
TestAry(1)="李四"
TestAry(2)="王五"
TestAry(3)="赵六"
rs.Open "[这里省略SQL语句]",conn,1,3
rs.AddNew
For i=0 To 3
rs("Name")=rs("Name")&TestAry(i)&"|"
N ...
呵呵,太好了!
最关键的一句:rs("name")=rs("name")&TestAry(i)&"|"
原来是用for循环,领教了!谢谢!