??????????????为什么这个循环做不下去?

[wuzhihua]

StrSql = "select * from cbklbjh"
Rs.CursorLocation = adUseClient
Rs.Open StrSql, Conn, adOpenDynamic, adLockOptimistic
Do While Not Rs.EOF
If Not (IsNull(Rs.Fields("nkbw")) Or IsNull(Rs.Fields("dw"))) Then
Adodc4.RecordSource = "select * from 表2 where bwid = '" + Rs.Fields("nkbw") + "' and dw = '" + Rs.Fields("dw") + "'"
Adodc4.Refresh
If Not Adodc4.Recordset.EOF Then
If Not IsNull(Adodc4.Recordset("mtmc")) Then
Rs.Fields("mtmc") = Adodc4.Recordset("mtmc")
End If
If Not IsNull(Adodc4.Recordset("bw")) Then
Rs.Fields("bw") = Adodc4.Recordset("bw")
End If
Rs.Update
End If
End If
Rs.MoveNext
Loop
就是cbklbjh中有两字段mtmc和bw要按条件到bw表中去取,但循环做不下去了,是什么原因???

[wuzhihua]

就是cbklbjh中有两字段mtmc和bw要按条件到表2中去取,但循环做不下去了,是什么原因???

[faysky2]

按F8单步运行，或设置断点看是怎么运行的

[faysky2]

如果没执行到循环里面去，说明Rs没有记录

[wuzhihua]

能执行到循环里去

[wuzhihua]

提示Rs.Update出错,字段更新后定位出错了吧

[faysky2]

提示的错误是什么 ？

[wuzhihua]

错误信息:键列信息不足或不正确,更新影响到多行

[wuzhihua]

If Not Adodc4.Recordset.EOF Then
If Not IsNull(Adodc4.Recordset("mtmc")) Then
Rs.Fields("mtmc") = Adodc4.Recordset("mtmc")
End If
If Not IsNull(Adodc4.Recordset("bw")) Then
Rs.Fields("bw") = Adodc4.Recordset("bw")
End If

End If
原因错在这里

[wuzhihua]

衷心感谢faysky2() ,这么晚还在看我看,谢谢

[clear_zero]

Rs.Open StrSql, Conn, adOpenDynamic, adLockOptimistic

adOpenStatic, adLockOptimistic /这样试试看

[faysky2]

把锁类型改为开放式批更新(adLockBatchOptimistic
)，然后把代码中间的Rs.Update注释掉，在Loop后面批量更新试试
Rs.Open StrSql, Conn, adOpenDynamic, adLockBatchOptimistic
Do While ...
....
Loop
Rs.UpdateBatch '批量更新