无法为更新定位行。一些值可能已在最后一次读取后已更改 错误提示的处理办法(vb)

这种情况的出现，一般是上一次进行update后，有的字段可能的默认值或被其它用户更改，却没有进行同步，在下一次进行update时，就会出现这种错误。

解决办法：

在每次update后，或改变数据前，使用
rs.Resync adAffectCurrent
语句即可。

示例：


aa = "sdfgsgsgsdf9866234"


Do Until ttrs.EOF


If ttrs("就业单位") & "" <> aa Then rs.AddNew


rs("就业单位") = ttrs("就业单位") & ""


rs("就业人数") = Val(rs("就业人数") & "") + ttrs("cnt")


If ttrs("性别") = "男" Then rs("男") = ttrs("cnt")


If ttrs("性别") = "女" Then rs("女") = ttrs("cnt")


rs.Update


rs.Resync adAffectCurrent




aa = ttrs("就业单位") & ""




ttrs.MoveNext


Loop




''如果没有rs.Resync adAffectCurrent 这条，在第二次进行update时，便会报错。