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