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
    dr1.Current("机具ID")=dr("机具ID")
    dr1.Current("机具条码")=dr("机具条码")
    sr =dr1.Current("机具条码")
    Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码=\'" & sr & "\' and 解绑日期 is null")
    If lsjl  IsNot 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   \'
    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
        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   
        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   \'
        msgbox("该机具成功绑定商户 ")
    End If
End If

甜老师这段代码哪有问题呢？添加数据时，如果商户资料表中的“机具条码”是空值的时候绑定机具时，不在“POS机绑定商户历史记录表”添加一条记录，其他正常

窗体上有一个“机具绑定”按钮和一个"文本框"我想实现：
一、在"文本框"中输入机具条码，单击“绑定机具”按钮.首先判断"商户资料表"中当前行的"机具ID" 是否存在，如果不存在（说明该商户未绑定任何机具）则执行：
   1、将"商户资料表"中的 当前行的商户ID、商户名称、客户ID、法人姓名等字段分别赋值给“POS机库存资料” 商户ID、商户名称、客户ID、客户姓名等字段，并将"机具是否绑定"设置为True，同时将“POS机库存资料”中的机具ID、机具条码等字段赋值给"商户资料表"中的机具ID、机具条码等字段。
    dr("商户ID") = dr1.Current("商户ID")
    dr("商户名称") = dr1.Current("商户名称")
    dr("客户ID") = dr1.Current("客户ID")
    dr("客户姓名") = dr1.Current("法人姓名")
    dr("机具是否绑定") = True
    dr1.Current("机具ID")=dr("机具ID")
    dr1.Current("机具条码")=dr("机具条码")

   2、以"商户资料表"中当前行的"机具条码"（即文本框所输入的内容）和“解绑日期”是 null"为查询"条件来查询"POS机绑定商户历史记录表"  
如果查询结果为空则执行：在“POS机绑定商户历史记录表”添加一条绑定机具的记录

 If lsjl  IsNot 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   \'
    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

完整代码见1楼

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 = dr1.Current.DataRow.OriginalValue("机具条码")

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

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

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

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

先给sr赋值啊

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

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

我的修改如下

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

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

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