在表A的BeforeSaveDataRow 事件中的代码：Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
If frm.Name = "客户" Then
Dim count2 As Integer = DataTables("item").compute("count([id])","[number] Is null And [name] is null and [region] is null")
If count2 > 0 Then
DataTables("item").DeleteFor("[number] Is null And [name] is null and [MnemonicCode] is null")
End If
Dim count As Integer =DataTables("item").Compute("count([ID])","[number] Is null or [name] is null or [region] is null" )
If count > 0 Then
e.Cancel = True
msgbox("客户信息内容输入不完整!""*""为必填项!")
Return
End If
End If
End If
在"客户"窗口中，按钮“save”代码：
Tables("item").Current.Save
问题：如果客户信息内容不完整（count > 0），如何能使按钮“save”中代码“Tables("item").Current.Save”不执行？
加好友 
发短信
Post By：2017/6/14 11:49:00 [只看该作者]
