If e.Selected Then
If e.Form.DropDownBox.name="shanghubianhaoDropBox"
Dim tbl As Table = Tables("窗口4_Table1")
Dim tbl1 As Table = Tables("客户资料")
Dim Result As DialogResult
If tbl1.Current IsNot Nothing Then
If tbl.current.isnull("客户编号") = False Then
Result = MessageBox.Show("该商户已经绑定客户,是否重新绑定新客户,单击是解绑后重新绑定,单击否放弃绑定新商户", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then
Return
Else
e.Form.DropDownBox.Value = tbl.Current("商户编号")
tbl.Current("客户编号") = tbl1.Current("客户编号")
tbl.Current("法人姓名") = tbl1.Current("客户姓名")
msgbox(tbl1.Current("客户姓名") & "客户成功绑定商户 ")
End If
End If
End If
ElseIf e.Form.DropDownBox.name="DropBox1" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "商户资料"
Dim tbl As Table = Tables("窗口4_Table1")
Dim tbl1 As Table = Tables("客户资料")
Dim Result As DialogResult
If tbl.Current IsNot Nothing Then
Result = MessageBox.Show("该商户已经绑定客户,是否重新绑定新客户,单击是解绑后重新绑定,单击否放弃绑定新商户", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then
Return
Else
e.Form.DropDownBox.Value = tbl.Current("客户编号")
tbl.Current("客户编号") = tbl1.Current("客户编号")
tbl.Current("法人姓名") = tbl1.Current("客户姓名")
End If
End If
End If
End If
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
e.Form.DropTable.FinishEditing()
ElseIf e.Form.DropDownBox.BindingField > "" '如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
加好友 
发短信
Post By：2017/8/4 21:47:00 [显示全部帖子]
