数据库按自动编号批量修改

桃花岛岛主

ACCESS数据库按照一定条件查询后,对这些数据进行修改,然后按照各自的自动编号进行保存.只能保存第一条

for i = 1 to 5

rs1.FindFirst "编号='" & grid1.cell(i,3).Text & "'"

rs1.edit

For j = 1 To 16
                rs1.Fields(j + 2).Value = Grid1.Cell(i, j).Text
Next

rs1.Update

next

求高手看看代码出错在哪里

sgrshh29

这样试试：
for i = 1 to 5
rs1.findfirst "编号='" & grid1.cell(i,3).text & "'"
rs1.edit
for j = 1 To 16
  rs1.fields(j + 2).value = grid1.cell(i, j).text
next
rs1.Update
rs1.movefirst
next