Question

你好，上次我问你的VB编程向access数据库表所有列插入数据，但列数是个变量，插入是数据是一个二维数组？

rs.AddNewIf Not rs.BOF Then For j = 1 To 4 For i = 0 To rs.Fields.Count - 1 rs(i) = a(j, i + 1) Next i rs.Update rs.MoveNext Next j End If 在 rs(i) = a(j, i + 1)处出现
怎么修改啊？非常感谢。

Answer 1

你的代码中有两处明显的错误：
一是rs.AddNew的位置不对；二是rs.Update更新后记录指针已在最后了，rs.MoveNext不能执行。
如果你的a(j, i + 1)没有错误的话，可以改成下面这样：
If Not rs.BOF Then
For j = 1 To 4
rs.AddNew
For i = 0 To rs.Fields.Count - 1
rs(i) = a(j, i + 1)
Next i
rs.Update
Next j
End If

Answer 2

把rs.AddNew放在 For j = 1 To 4 后面，如果要加If 判断也要在循环内啊