主题：[讨论] 如何使窗口中的Table退出时验证

If e.Sender.Value Is Nothing Then

    If MessageBox.Show("部门编码不能为空!,是否退出?","提示",MessageBoxButtons.YesNo)=DialogResult.No

        e.Cancel = True

    Else

        With Tables("部门档案")

            Tables("部门档案").Position=.Position

            .Current.Delete

        End With

    End If

End If