1、代码
If e.OldTableName = "文本资料" Then
Dim a As Row = Tables("文本资料").Current
If a.IsNull("文件名") OrElse a.Isnull("上传人") OrElse a.Isnull("文本分类") OrElse a.Isnull("上传日期") OrElse a.Isnull("文本") Then
Dim Result As DialogResult
Result = MessageBox.Show("填写不完整,是否退出", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
a.Reject
Else
msgbox("不退出")
End If
Else
a.save
End If
End if
2、写到mainTablechanging事件
http://www.foxtable.com/webhelp/scr/1612.htm