主题：添加数据

照抄8楼代码测试。

写到哪呢？好几个地方都在调用“sr”

 

还有就是我用的是 sr = dr1.Current.DataRow.OriginalValue("机具条码")不是sr = dr1.Current("机具条码")

因为我有的查询条件时表修改前的数据不是修改后的数据

 

如果改为sr = dr1.Current("机具条码")解绑后的机具在POS机机具与流量卡历史绑定记录表中解绑日期根本不赋值，以前用的就是这个语句后来就改为这个了

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

 

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

甜老师我全改了，就解绑后的机具在POS机机具在流量卡历史绑定记录表中解绑日期根本不赋值

您看看代码那错了

If  e.Form.Controls("jijutiaoma").text =Nothing Then
    If MessageBox.Show("机具条码不能为空,是否继续绑定","提示",MessageBoxButtons.YesNo) =DialogResult.No Then
        e.Form.Controls("jijutiaoma").text =Nothing
        e.Form.Controls("jijutiaoma").Enabled= False
        e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
        e.Form.Controls("jijubangding").Enabled=False
        e.Form.Controls("jijujiebang").Enabled= False
        Return
    End If
End If
Dim dr As DataRow = DataTables("POS机库存资料").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
If dr Is Nothing Then
    msgbox("没有查到符合条件的数据,请核实机具是否入库!")
    Return
ElseIf dr.IsNull("商户ID") = False Then
    msgbox("该机具已经被其他商户占用,不能重复绑定!请核实机具条码!")
    Return
End If
Dim sr As String
Dim dr1 As Table = Tables("商户资料表")
If dr1.Current.Isnull("机具ID") Then
    dr("商户ID") = dr1.Current("商户ID")
    dr("商户名称") = dr1.Current("商户名称")
    dr("客户ID") = dr1.Current("客户ID")
    dr("客户姓名") = dr1.Current("法人姓名")
    dr("机具是否绑定") = True
   sr = dr1.Current("机具条码")
    dr1.Current("机具ID")=dr("机具ID")
    dr1.Current("机具条码")=dr("机具条码")
    'sr = dr1.Current.DataRow.OriginalValue("机具条码")
        Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & sr & "' and 解绑日期 is null")
    If lsjl  Is Nothing Then
        lsjl =  DataTables("POS机绑定商户历史记录表").addnew
        lsjl("机具ID") =dr("机具ID")
        lsjl("机具条码") =dr("机具条码")
        lsjl("机具类型") =dr("机具类型")
        lsjl("机具型号") =dr("机具型号")
        lsjl("所属仓库") =dr("所属仓库")
        lsjl("商户ID") =dr1.Current("商户ID")
        lsjl("商户名称") =dr1.Current("商户名称")
        lsjl("客户ID") =dr1.Current("客户ID")
        lsjl("客户姓名") =dr1.Current("法人姓名")
        lsjl("绑定日期") =Date.Today
    End If
    DataTables("POS机库存资料"). Save 
    DataTables("POS机绑定商户历史记录表"). Save    '
    msgbox(dr("商户名称") & "机具成功绑定商户 ")
    e.Form.Controls("jijutiaoma").text =Nothing
    e.Form.Controls("jijutiaoma").Enabled= False
    e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
    e.Form.Controls("jijubangding").Enabled=False
    e.Form.Controls("jijujiebang").Enabled= False
Else
    Dim dlg = MessageBox.Show("该商户已经绑定其他机具,是否解绑后重新绑定新机具,单击是解绑后重新绑定,单击否则添加新商户并绑定到新增的商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    If dlg = DialogResult.Yes Then
        For Each fdr As DataRow In DataTables("POS机库存资料").Select("机具ID='" & dr1.Current("机具ID") & "'")
            fdr("商户ID") = Nothing
            fdr("商户名称") = Nothing
            fdr("客户ID") = Nothing
            fdr("客户姓名") = Nothing
            fdr("机具是否绑定") = False
        Next
        dr("商户ID") = dr1.Current("商户ID")
        dr("商户名称") = dr1.Current("商户名称")
        dr("客户ID") = dr1.Current("客户ID")
        dr("客户姓名") = dr1.Current("法人姓名")
        dr("机具是否绑定") = True
         sr = dr1.Current("机具条码")
        dr1.Current("机具ID")=dr("机具ID")
        dr1.Current("机具条码")=dr("机具条码")
       ' sr = dr1.Current.DataRow.OriginalValue("机具条码")
               Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & sr & "' and 解绑日期 is null")
        If lsjl  IsNot Nothing  Then
            lsjl ("解绑日期") =Date.Today
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr1.Current("商户ID")
            lsjl("商户名称") =dr("商户名称")
            lsjl("客户ID") =dr("客户ID")
            lsjl("客户姓名") =dr("客户姓名")
            lsjl("绑定日期") =Date.Today
        Else
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr1.Current("商户ID")
            lsjl("商户名称") =dr("商户名称")
            lsjl("客户ID") =dr("客户ID")
            lsjl("客户姓名") =dr("客户姓名")
            lsjl("绑定日期") =Date.Today
        End If
        DataTables("POS机库存资料"). Save  
        DataTables("POS机绑定商户历史记录表"). Save   
        msgbox(dr("商户名称") & "机具成功绑定商户 ")
        e.Form.Controls("jijutiaoma").text =Nothing
        e.Form.Controls("jijutiaoma").Enabled= False
        e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
        e.Form.Controls("jijubangding").Enabled=False
        e.Form.Controls("jijujiebang").Enabled= False
    ElseIf dlg = DialogResult.No
        '新增加的代码
        Dim tbl As Table =Tables("商户资料表")
        sr =  dr1.Current.DataRow.OriginalValue("机具条码")
        Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" &  sr  & "' and 解绑日期 is null")
        Dim sr1 As Row = tbl.Current
        Dim nr As DataRow = tbl.DataTable.addnew
        nr("通道名称") = sr1("通道名称")
        nr("网点地址") = sr1("网点地址")
        nr("商户名称") = sr1("商户名称")
        nr("网点名称") = sr1("网点名称")
        nr("网点编号") = sr1("网点编号")
        nr("备注") = sr1("备注")
        nr("商户照片") = sr1("商户照片")
        nr("商户编号") = sr1("商户编号")
        nr("客户ID") = sr1("客户ID")
        nr("法人姓名") = sr1("法人姓名")
        dr("商户ID") = nr("商户ID")
        dr("商户名称") = nr("商户名称")
        dr("客户ID") = nr("客户ID")
        dr("客户姓名") = nr("法人姓名")
        dr("机具是否绑定") = True
        nr("机具ID")=dr("机具ID")
        nr("机具条码")=dr("机具条码")
        If lsjl  IsNot Nothing Then
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr("商户ID")
            lsjl("商户名称") =dr1.Current("商户名称")
            lsjl("客户ID") =dr1.Current("客户ID")
            lsjl("客户姓名") =dr1.Current("法人姓名")
            lsjl("绑定日期") =Date.Today
        End If
        DataTables("POS机库存资料"). Save
        DataTables("POS机绑定商户历史记录表"). Save      '
        msgbox("该机具成功绑定商户 ")
    End If
End If
'systemready = True

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

就是按照您说的修改的，我真的看不出那错了

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

怎么返回来的是空值呀

 

 

此主题相关图片如下：69.jpg


此主题相关图片如下：70.jpg


此主题相关图片如下：71.jpg

 

 

 

谢谢甜老师！我已经解决还是有 sr = dr1.Current.DataRow.OriginalValue("机具条码")作为查询条件。只要每次修改后交"商户资料表"保存后就正常了，不保存数据，返回来的永远是第一次修改前的数据

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