BeforeCloseProject

关闭项目之前执行。

e参数属性：

Cancel:   逻辑型，设为True，拒绝关闭项目。
SkipSave: 逻辑型，设为True，将不保存项目，直接关闭。

可利用本事件检查一些必要的工作是否已经完成，如果没有完成，则拒绝关闭项目。

示例：

假定表B有一名为"状态"的列，希望在关闭项目前自动检查，如果发现有状态列为空的记录，则提示用户。
为此，可在BeforeCloseProject事件中加入下述代码：

'如果表B不存在状态列为空的行
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