主题：关于添加数据

参考代码

If tbl1.current.isnull("商户ID") Then
    '赋值操作
    msgbox("绑定成功")
Else
   
    Dim Result As DialogResult = MessageBox.Show("该机具已经绑定商户,是否重新绑定新商户,单击是解绑后重新绑定,单击否放弃绑定新商户", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    If result = DialogResult.Yes Then
        '赋值操作
    ElseIf result = DialogResult.No Then
        Dim nr As Row = tbl.addnew
        '赋值操作
    End If
End if

赋值操作，指这些

                    tbl1.Current("商户ID") = tbl.Current("商户ID")
                    tbl1.Current("商户名称")= tbl.Current("商户名称") 
                    tbl1.Current("客户ID")= tbl.Current("客户ID")  
                    tbl1.Current("客户姓名")= tbl.Current("法人姓名")  
                    tbl.Current("机具ID")= tbl1.Current("机具ID")
                    tbl.Current("机具条码")= tbl1.Current("机具条码")

If e.Form.DropDownBox.name="posjishanghuIDDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "POS机库存资料"
    Dim tbl As Table = Tables("入库商户选择_Table1")
    Dim tbl1 As Table = Tables("POS机库存资料")
    If tbl.Current IsNot Nothing Then
        If tbl1.current.isnull("商户ID") Then
            '赋值操作
            msgbox("绑定成功")
        Else    
            Dim Result As DialogResult = MessageBox.Show("该机具已经绑定商户,是否重新绑定新商户,单击是解绑后重新绑定,单击否放弃绑定新商户", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
            If result = DialogResult.Yes Then
                '赋值操作
            ElseIf result = DialogResult.No Then
                Dim nr As Row = tbl.addnew
                '赋值操作
            End If
        End if
    End If
End If

新增一行，赋值

Dim or As Row = tbl.Current

Dim nr As Row = tbl.addnew

nr("某列") = or("某列")

nr("某列") = or("某列")

nr("某列") = or("某列")

认认真真看12楼啊。

那你就改一下，要灵活变通代码啊。

If tbl.current.isnull("机具ID") Then

前面再加上代码判断

Dim fdr As DataRow = tbl.DataTable.Find("机具Id = '" &  tbl1.Current("机具ID") & "'")

If fdr IsNot Nothing Then

    msgbox("该机具id已经被绑定")

    Return

End If

ElseIf e.Form.DropDownBox.name="posjishanghuIDDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "POS机库存资料"
    Dim tbl As Table = Tables("入库商户选择_Table1")
    Dim tbl1 As Table = Tables("POS机库存资料")
    If tbl1.Current IsNot Nothing Then
        Dim fdr As DataRow = tbl.DataTable.Find("机具Id = '" &  tbl1.Current("机具ID") & "'")
        If fdr IsNot Nothing Then
            Dim Result As DialogResult = MessageBox.Show("是否解绑?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
            If result = DialogResult.Yes Then
                fdr("机具ID") = Nothing
                fdr("机具条码")= Nothing
                tbl1.Current("商户ID") = Nothing
                tbl1.Current("商户名称")= Nothing
            ElseIf result = DialogResult.No Then
                Dim sr As Row = tbl.Current
                Dim nr As Row = tbl.addnew
                systemready = False
                e.Form.DropDownBox.Value = tbl.Current("商户ID")
                tbl1.Current("商户ID") = tbl.Current("商户ID")
                tbl1.Current("商户名称")= tbl.Current("商户名称")
                tbl1.Current("客户ID")= tbl.Current("客户ID")
                tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                tbl.Current("机具ID")= tbl1.Current("机具ID")
                tbl.Current("机具条码")= tbl1.Current("机具条码")
                nr("通道名称") = sr("通道名称")
                nr("网点地址") = sr("网点地址")
                nr("商户名称") = sr("商户名称")
                nr("网点名称") = sr("网点名称")
                nr("网点编号") = sr("网点编号")
                nr("备注") = sr("备注")
                nr("商户照片") = sr("商户照片")
                nr("商户编号") = sr("商户编号")
                nr("客户ID") = sr("客户ID")
                nr("法人姓名") = sr("法人姓名")
                nr("流量卡ID") = sr("流量卡ID")
                nr("流量卡号") = sr("流量卡号")
                msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                systemready =True
                Return
            Else
                Return
            End If
        End If
        If tbl.current.isnull("机具ID") Then
            systemready = False
            e.Form.DropDownBox.Value = tbl.Current("商户ID")
            tbl1.Current("商户ID") = tbl.Current("商户ID")
            tbl1.Current("商户名称")= tbl.Current("商户名称")
            tbl1.Current("客户ID")= tbl.Current("客户ID")
            tbl1.Current("客户姓名")= tbl.Current("法人姓名")
            tbl.Current("机具ID")= tbl1.Current("机具ID")
            tbl.Current("机具条码")= tbl1.Current("机具条码")
            msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
            systemready =True
            Return
        Else
            Dim Result As DialogResult = MessageBox.Show("该商户已经绑定机具,是否解绑后重新绑定新机具,单击是解绑后重新绑定,单击否添加新商户放弃绑定新商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
            If result = DialogResult.Yes Then
                systemready = False
                e.Form.DropDownBox.Value = tbl.Current("商户ID")
                tbl1.Current("商户ID") = tbl.Current("商户ID")
                tbl1.Current("商户名称")= tbl.Current("商户名称")
                tbl1.Current("客户ID")= tbl.Current("客户ID")
                tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                tbl.Current("机具ID")= tbl1.Current("机具ID")
                tbl.Current("机具条码")= tbl1.Current("机具条码")
                msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                systemready =True
                Return
            ElseIf result = DialogResult.No Then
                Dim sr As Row = tbl.Current
                Dim nr As Row = tbl.addnew
                systemready = False
                e.Form.DropDownBox.Value = tbl.Current("商户ID")
                tbl1.Current("商户ID") = tbl.Current("商户ID")
                tbl1.Current("商户名称")= tbl.Current("商户名称")
                tbl1.Current("客户ID")= tbl.Current("客户ID")
                tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                tbl.Current("机具ID")= tbl1.Current("机具ID")
                tbl.Current("机具条码")= tbl1.Current("机具条码")
                nr("通道名称") = sr("通道名称")
                nr("网点地址") = sr("网点地址")
                nr("商户名称") = sr("商户名称")
                nr("网点名称") = sr("网点名称")
                nr("网点编号") = sr("网点编号")
                nr("备注") = sr("备注")
                nr("商户照片") = sr("商户照片")
                nr("商户编号") = sr("商户编号")
                nr("客户ID") = sr("客户ID")
                nr("法人姓名") = sr("法人姓名")
                nr("流量卡ID") = sr("流量卡ID")
                nr("流量卡号") = sr("流量卡号")
                msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                systemready =True
                Return
            End If
        End If
    End If