DropDownOpened事件加上
If e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "商户资料表" AndAlso Tables("商户资料表").Current IsNot Nothing Then
vars("机具条码") = Tables("商户资料表").Current("机具条码")
End If
If e.Selected Then
If e.Form.DropDownBox.name="jijutiaomaDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "商户资料表"
Dim tbl As Table = Tables("入库机具选择_Table1")
Dim tbl1 As Table = Tables("商户资料表")
Dim Result As DialogResult
Dim sr As Row = tbl.Current
Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & vars("机具条码") & "' and 商户ID='" & tbl1.Current("商户ID") & "'")
If tbl.Current IsNot Nothing Then
If tbl.current.isnull("商户ID") = False Then
Result = MessageBox.Show("该机具已经绑定商户,是否重新绑定新商户,单击是解绑后重新绑定,单击否放弃绑定新商户", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then
Return
Else
If lsjl IsNot Nothing Then
lsjl ("解绑日期") =Date.Today
lsjl = DataTables("POS机绑定商户历史记录表").addnew
lsjl("机具ID") =tbl.Current("机具ID")
lsjl("机具条码") =tbl.Current("机具条码")
lsjl("机具类型") =tbl.Current("机具类型")
……
加好友 
发短信
Post By：2017/9/30 9:58:00 [只看该作者]
