主题：关于BeforeCloseProject的设置。(已解决)

If DataTables("表B").Find("[状态] Is Null") IsNot Nothing Then
   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作为主表。

       Return

   End fi
End If