主题：空的行提示

我想在以下代码增加条件，无法解决，求助

1.  当菜单 功能区1 存在的时候提示表B 的空行 , 如果 功能区1  不存在不提示

2.  多列不能为空如何改写代码

谢谢！

If DataTables("表B").Find("[状态] Is Null") Is Nothing Then
Return '那么返回
End If
Dim Result As DialogResult
Result = Messagebox.Show("存在状态不确定的记录，确定要关闭项目吗？","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then '如果用户选择否
e.Cancel = True '取消关闭项目
Tables("表B").Filter = "[状态] Is Null" '表B中筛选出状态为空的记录。
MainTable = Tables("表B") '选择表B作为主表。
End If

也许这个更好：

http://www.foxtable.com/help/topics/0628.htm

问题已解决，谢谢！