无法为更新定位行。一些值可能已在最后一次读取后已更改 错误提示的处理办法(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时，便会报错。