Foxtable(狐表)用户栏目专家坐堂 → 隐藏topicbar中的某个页面


  共有1711人关注过本帖树形打印复制链接

主题:隐藏topicbar中的某个页面

帅哥哟,离线,有人找我吗?
deliangzhaoe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:361 积分:3436 威望:0 精华:0 注册:2012/7/24 7:15:00
隐藏topicbar中的某个页面  发帖心情 Post By:2019/4/22 6:37:00 [只看该作者]

除超级管理员和管理员外,其他人隐藏任务栏中的某个页面,主窗口afterload设置了如下代码:

'除超级管理员和管理员,其他人不显示页面双重预防体系
If _UserGroup <> "超级管理员" AndAlso _UserGroup <> "管理员" Then
    Forms("mainform").Controls("TopicBar1").Pages("双重预防体系").visible = False
Else
    Forms("mainform").Controls("TopicBar1").Pages("双重预防体系").visible = true
End If

但是打开窗口后,所在人均不显示了,怎么回事?
请老师帮忙改一下代码,谢谢
[此贴子已经被作者于2019/4/22 6:39:01编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2019/4/22 10:08:00 [只看该作者]

加入代码, 弹出什么值?

 

msgbox(_UserGroup)


 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:361 积分:3436 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2019/4/22 20:55:00 [只看该作者]

提示框为空
我知道怎么回事了,
我代码的位置换了一下,已经解决了,谢谢

 回到顶部