我觉得是循环错了,因为不加循环的话就不会出错
Dim I, j
j = List2.ListCount
For I = 0 To j
strSQL = "insert into mark ([no],[time]) values ('" & List2.List(I) & "','2005-06-10 19:56:52')"
cn.Execute strSQL
Next
...全文
564打赏收藏
这条代码哪错了??
我觉得是循环错了,因为不加循环的话就不会出错 Dim I, j j = List2.ListCount For I = 0 To j strSQL = "insert into mark ([no],[time]) values ('" & List2.List(I) & "','2005-06-10 19:56:52')" cn.Execute strSQL Next