主题：关于添加数据

pos机库存资料表DataColChanged事件，商户表同理，自己写。

 

    If e.DataCol.Name = "商户ID"  Then
        If e.OldValue <> Nothing Then
            For Each dr As DataRow In DataTables("商户资料表").Select("商户id = '" & e.OldValue & "'")
                dr("机具id") = Nothing
                dr("机具条码") = Nothing
            Next
        End If
    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
            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("机具条码")
                If tbl1.Current("商户ID") IsNot Nothing Then
                    tbl1.Current("机具是否绑定")= True
                Else
                    tbl1.Current("机具是否绑定")= False
                End If
                msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                systemready =True
                Return
            Else
                Dim Result As DialogResult = MessageBox.Show("该商户已经绑定机具,是否解绑后重新绑定新机具,单击是解绑后重新绑定,单击否则添加新商户并绑定新增商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
                If result = DialogResult.Yes Then
                    systemready = False
                    For Each dr As DataRow In tbl1.DataTable.Select("机具Id = '" &  tbl.Current("机具ID") & "'")
                        dr("商户ID") = Nothing
                        dr("商户名称") = Nothing
                        dr("机具是否绑定")= False
                    Next
                    For Each dr As DataRow In tbl.DataTable.Select("机具Id = '" &  tbl1.Current("机具ID") & "'")
                        dr("机具ID") = Nothing
                        dr("机具条码") = Nothing
                    Next
                    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("机具条码")
                    If tbl1.Current("商户ID") IsNot Nothing Then
                        tbl1.Current("机具是否绑定")= True
                    Else
                        tbl1.Current("机具是否绑定")= False
                    End If
                    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")
                    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("流量卡号")
                    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 tbl1.Current("商户ID") IsNot Nothing Then
                        tbl1.Current("机具是否绑定")= True
                    Else
                        tbl1.Current("机具是否绑定")= False
                    End If
                    msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                    systemready =True
                    Return
                End If
            End If
        End If
田老师经过测试，我怎么实现在绑定商户的时候在"POS机库存资料"选择商户时如果在下拉窗体中选择的数据和之前的数据相同（也就是说未发生改变时）不执行如何操作呢？

加上判断

 

If tbl.current("商户ID") <> tbl1.current("商户ID") Then

    msgbox("不同")

Else

    msgbox("相同")

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 tbl.current("商户ID") <> tbl1.current("商户ID") Then

                 '原来的代码

           End If

Else

         Return

End If

这句代码还用吗？

else，可用可不用。

谢谢