以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 切换用户后设定不起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178631)

--  作者:njzwm
--  发布时间:2022/7/12 21:17:00
--  [求助] 切换用户后设定不起作用
为了让不同组用户看到不同的tabcontrol页面,我在loadusersetting事件中写了如下语句:

If User.Group <> "全面管理" Then
     Forms("基本资料").Controls("TabControl1").TabPages(3).Visible = False
End If

我在已打开的项目中从操作员切换到具有“全面管理”资格的经理时,这个原先隐藏的TabPage(3)还是不出现。除非我打开“窗口管理”或者直接用口令重头开始登陆才起作用。
这个怎么办?希望老师解答!

--  作者:有点蓝
--  发布时间:2022/7/12 21:31:00
--  
if Forms("基本资料").opened
If User.Group <> "全面管理"  Then
     Forms("基本资料").Controls("TabControl1").TabPages(3).Visible = False
else
     Forms("基本资料").Controls("TabControl1").TabPages(3).Visible = true
End If
endif

--  作者:njzwm
--  发布时间:2022/7/12 21:46:00
--  
哦,是的,谢谢!