不但菜单不见，表也不见了，而且主窗口始终可见，不管你的代码选择哪张表。
在AfterOpenProject中
For Each t As RibbonMenu.Tab In RibbonTabs
t.Visible = (User.Type = UserTypeEnum.Developer)
Nex
TableCaptionVisible = (User.Type = UserTypeEnum.Developer)
Forms("主窗口").OpenTo(CurrentTable.Name)
在LoadUserSetting中
For Each t As RibbonMenu.Tab In RibbonTabs
t.Visible = (User.Type = UserTypeEnum.Developer)
Nex
TableCaptionVisible = (User.Type = UserTypeEnum.Developer)
在MainTableChanged中
Forms("主窗口").OpenTo(CurrentTable.Name)
[此贴子已经被作者于2013-2-28 14:05:54编辑过]
加好友 
发短信
Post By：2013/2/28 13:54:00 [显示全部帖子]
