[求助] 切换用户后设定不起作用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 切换用户后设定不起作用

共有5495人关注过本帖树形打印复制链接主题：[求助] 切换用户后设定不起作用

njzwm

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：331 积分：2936 威望：0 精华：0 注册：2015/8/22 20:07:00

[求助] 切换用户后设定不起作用 发帖心情

Post By：2022/7/12 21:17:00 [只看该作者]

为了让不同组用户看到不同的tabcontrol页面，我在loadusersetting事件中写了如下语句：

If User.Group <> "全面管理" Then

Forms("基本资料").Controls("TabControl1").TabPages(3).Visible = False

End If

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

这个怎么办？希望老师解答！

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：111419 积分：567171 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：331 积分：2936 威望：0 精华：0 注册：2015/8/22 20:07:00

Post By：2022/7/12 21:46:00 [只看该作者]

哦，是的，谢谢！

主题：[求助] 切换用户后设定不起作用