主题：判断填写完整

请问老师，我想让选择不同主表时判断现在的表中各项是否填写完整，如果不完整就提醒是否退出，如果选择退出就删除不完整的记录，如果选择不退出就继续填写。请老师给改一下，谢谢。

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

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

我的本意是如果选择了不退出，应该返回当前表接着输入，选择退出则删除当前表不完整记录，转到要打开的表。可不知怎么实现。