以文本方式查看主题 - 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 -- 哦,是的,谢谢! |