以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  每次打开界面主窗口自动打开  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124262)
--  作者：18631154510
--  发布时间：2018/9/3 13:55:00
--  每次打开界面主窗口自动打开
请问每次重新打开项目，主窗口怎么样自动出来
--  作者：2900819580
--  发布时间：2018/9/3 14:02:00
--  

AfterOpenProject

此事件在项目已经完全打开后执行，此时DataTable、Table和窗口都已经生成。

示例一

例如希望产品表内容只能在Tables("产品")修改，也就是只能在主表修改，而不能在关联表修改，可以在AfterOpenProject事件中加入如下代码：

DataTables("产品").AllowEdit = False
Tables("产品").AllowEdit = True

注意上面的代码不能设置在Initialize事件中，因为Initialize事件代码执行时，Table还没有生成的。

示例二

假定打开项目的用户是“经理”级别的时候，则自动打开某个窗口，可以在AfterOpenProject事件中加入代码：

If User.Group = "经理" Then
    Forms("窗口1").Open()
End If
--  作者：有点甜
--  发布时间：2018/9/3 14:08:00
--  

AfterOpenProject事件，写代码

 

Forms("窗口1").Show()