主题：关于添加数据

老师

老师我上面的代码也得要因为这个是下拉框什么的代码就不能实现选择”否”给商户资料表复制数据的功能其他功能都能实现的

是不是得把我的源代码全删除呢？

老师是我表达错误,是这样的,就是如果该商户已经绑定了机具就复制一个该商户（除商户ID自动编号外其余各列数据都一样）在绑定一台机具

就是复制行将该行的数据做为新数据新增一行的意思

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
            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

 

 

老师这样基本能实现以上功能，但是还有一点就是怎么能限制一个商户资料表中的商户不能同时绑定同一台机具呢？如果某一台机具已经被商户绑定，一、可以解绑商户（商户表清空该机具ID和机具条码）重新绑定新商户。二、可取消操作。

 

甜老师如是在POS机库存资料表商户ID添加绑定商户时能实现以上功能，如果是POS机库存资料表商户ID已经存在时做修改的时候商户资料表中的机具ID和机具条码不发生清空的出现一台机具绑定了两台以上机具（这是绝不允许出现的现象）怎么解决呢？
此主题相关图片如下：0005.jpg

您看看判断语句顺序是不是有问题保存不了数据