If e.Selected Then
If 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
If tbl.current("流量卡状态") = "废卡" Then
msgbox("该流量卡是废卡不能绑定客户")
tbl1.Current("流量卡ID")= tbl1.Current.DataRow.OriginalValue("流量卡ID")
Tables("客户资料").Current.Reject()
'e.Form.DropDownBox.Value = Nothing
Return
Else
e.Form.DropDownBox.Value = tbl.Current("流量卡ID")
tbl1.Current("流量卡ID")=tbl.Current("流量卡ID")
tbl1.Current("流量卡号")=tbl.Current("流量卡号")
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
是这样吗？经过测试无法撤销，以前也这样测试过无法撤销的
[此贴子已经被作者于2019/6/24 15:08:55编辑过]
加好友 
发短信
Post By：2019/6/23 9:25:00 [显示全部帖子]
此主题相关图片如下：微信截图_20190624002621.png
