以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  菜单功能区根据不同用户的切换问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77325)

--  作者:ehomecd
--  发布时间:2015/11/16 15:27:00
--  菜单功能区根据不同用户的切换问题
日常管理是菜单的第二个功能组,如何实现员工登录的时候,自动让第二个功能组“日常管理”为当前的活动功能组?


If RibbonTabs.Contains("管理管理") Or RibbonTabs.Contains("日常管理")Then \'如果包含名为"设计"的功能区
    If _UserRole = "学生" Then
        RibbonTabs("主管管理").Visible = False
        RibbonTabs("日常管理").Visible = False
        Forms("游戏个人数据s").open
    ElseIf  _UserRole = "员工" Then
        RibbonTabs("主管管理").Visible = False
        RibbonTabs("日常管理").Visible = True

RibbonTabs("日常管理").selected = 1

        Forms("学生名册").open
    Else
        RibbonTabs("主管管理").Visible = True
        RibbonTabs("日常管理").Visible = True
        RibbonTabs("龙源宝藏").Visible = True
        Forms("学生名册").open
    End If


--  作者:大红袍
--  发布时间:2015/11/16 15:30:00
--  
有什么问题,红色代码没问题啊。