主题：关于添加数据

老师我选择只判断了"POS机库存资料"机具是否被占用，我现在想在中间再加一个判断，来判断“商户资料表”中是否已经绑定机具了:

1、如果未绑定则执行直接绑定机具

2、如果已绑定机具则执行，提示商户已经绑定机具来让客户选择执行方式

 （1）如果选择是，解除商户绑定的机具，重新绑定机具；

 （2）如果选择否，则执行新增加（将该商户复制一条）一条记录，同时执行该机具绑定商户

 （3）如果选择否，则执行返回不执行任何数据更改。

 

该怎么实现呢？

 

If  e.Form.Controls("jijutiaoma").text =Nothing Then
    If MessageBox.Show("机具条码不能为空,是否继续绑定","提示",MessageBoxButtons.YesNo) =DialogResult.No Then
        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     
        e.Form.Controls("jijutiaoma").Select
        e.Form.Controls("jijubangding").Enabled= True
        e.Form.Controls("jijujiebang").Enabled= True
    End If
Else
    Dim dr As DataRow = DataTables("POS机库存资料").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
      e.Form.Controls("jijutiaoma").text
    If dr Is Nothing Then
        msgbox("没有查到符合条件的数据,请核实机具是否入库!")
    ElseIf dr.IsNull("商户ID") = False Then
        msgbox("机具已占用,请核实机具号!")
    Else
        If MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNo) = DialogResult.Yes Then
            dr("商户ID") = Tables("商户资料表").Current("商户ID")
            dr("商户名称") = Tables("商户资料表").Current("商户名称")
            dr("客户ID") = Tables("商户资料表").Current("客户ID")
            dr("客户姓名") = Tables("商户资料表").Current("法人姓名")
            dr("机具是否绑定") = True
            Tables("商户资料表").Current("机具ID")=dr("机具ID")
            Tables("商户资料表").Current("机具条码")=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
        End If
    End If
End If