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


本页地址:http://www.foxtable.com/webhelp/topics/0668.htm