主题：添加数据

sr =dr1.Current("机具条码")
Dim lsjl As DataRow

If sr = nothing Then

    lsjl = DataTables("POS机绑定商户历史记录表").AddNew

Else

    lsjl = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & sr & "' and 解绑日期 is null")

    if lsjl is Nothing Then lsjl = DataTables("POS机绑定商户历史记录表").AddNew

End If

你sr的值获取有问题，在修改之前获取

 

sr = dr1.Current("机具条码")

dr1.Current("机具ID")=dr("机具ID")

 

 

先给sr赋值啊

 

sr = dr1.Current("机具条码")

dr1.Current("机具ID")=dr("机具ID")

 

照抄8楼代码测试。

全部改。理解这样做的原因。

 

sr获取的是你修改前的值，请先理解你什么时候修改机具条码的值？在修改之前，先用sr保存好你的值，再修改机具条码的值。

认认真真看【你什么时候修改机具条码的值？修改前，先用变量记录其值。】

 要自己学会调试代码。msgbox弹出各个变量的值，比如 msgbox(sr)，看是否正确，然后自己查找原因。

回复18楼，其实不需要用OriginalValue的，你单元格的值修改之前的值是什么？在最开始的地方加入，如 msgbox(dr1("机具条码")) 得到的是不是你需要的值。