主题：关于添加数据

有“商户资料表”、“POS机库存资料”两个表，在“POS机库存资料”添加数据时有一个下拉窗体绑定商户时我怎么实现如下功能？

首先判断该商户是否已经绑定机具。

（1）如果该商户未绑定任何机具直接绑定，弹出一个提示框提示客户机具已绑定成功。

（2）如果已经绑定机具，则执行弹出一个是否解绑选择对话框有三个选择(是、否、取消)1、选择“是”则执行解绑旧机具后重新绑定新机具；2、如果选择“否”则执行在“商户资料表”中复制并添加一个完全一样该商户然后绑定该机具 ；3、如果选择“取消”则执行取消本次操作。

有一个下拉窗体添加数据，

 

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机库存资料")
        Dim Result As DialogResult
        If tbl.Current IsNot Nothing Then
            If tbl1.current.isnull("商户ID") = False Then
                Result = MessageBox.Show("该机具已经绑定商户,是否重新绑定新商户,单击是解绑后重新绑定,单击否放弃绑定新商户", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If Result = DialogResult.No Then
                    Return
                Else
                    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
                End If
            End If

        End If
  End If

参考代码

 

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("机具条码")

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

2楼代码没问题，请认真测试。

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

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

 

老师我是了商户资料表添加的是一个空白行，不是复制所选的行到新增行

回复9楼，那你可以直接AddNew，不赋值，不就行了？