AfterOpenProject
此事件在项目已经完全打开后执行,此时DataTable、Table和窗口都已经生成。
示例一
例如希望产品表内容只能在Tables("产品")修改,也就是只能在主表修改,而不能在关联表修改,可以在AfterOpenProject事件中加入如下代码:
DataTables("产品").AllowEdit = FalseTables("产品").AllowEdit = True
注意上面的代码不能设置在Initialize事件中,因为Initialize事件代码执行时,Table还没有生成的。
示例二
假定打开项目的用户是“经理”级别的时候,则自动打开某个窗口,可以在AfterOpenProject事件中加入代码:
If User.Group = "经理" Then Forms("窗口1").Open()End If