以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多角色设定，菜单权限的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50182)
--  作者：wealthwind
--  发布时间：2014/4/30 17:46:00
--  多角色设定，菜单权限的问题

If User.roles = "区域主管" Then
    RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
End If

If User.roles = "个案拆分" Then
    RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
End If

If User.roles = "日常事务" Then
    RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
End If

 

 

以上是我设置的权限代码，但是我想通过CASE来设置，这样会比较便捷一点，请老师指点一点，如何弄？？
--  作者：Bin
--  发布时间：2014/4/30 17:48:00
--  
select case User.roles
     case "区域主管" 
            RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
     case "个案拆分"
            RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
     case "日常事务"
            RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
end select
--  作者：wealthwind
--  发布时间：2014/4/30 18:05:00
--  

老师，请问以下代码有什么问题，为什么没有实现，用户查看不同菜单的权限；

 

Select Case User.roles
Case "日常事务"
    RibbonTabs("xiaoshoumokuai").Visible = False
    RibbonTabs("zhuanmaidianmokuai").Visible = False
    RibbonTabs("shujuguanli").Visible = False
    RibbonTabs("xiaoshoudacheng").Visible = False
Case "个案拆分"
    RibbonTabs("xiaoshoumokuai").Visible = False
    RibbonTabs("zhuanmaidianmokuai").Visible = False
    RibbonTabs("shujuguanli").Visible = False
    RibbonTabs("xiaoshoudacheng").Visible = False
End Select

Select Case User.roles
     Case "区域主管"
            RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
     Case "个案拆分"
            RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
     Case "日常事务"
            RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
End Select


If User.roles = "统计员" Then
    RibbonTabs("shujuguanli").Visible = True
Else
    RibbonTabs("shujuguanli").Visible = False
End If
--  作者：wealthwind
--  发布时间：2014/4/30 22:33:00
--  
谢谢各位，我已经 会编写了~~只是开始思路未清晰，谢谢大家~~
--  作者：荟美绘姿
--  发布时间：2016/1/14 16:19:00
--  

顶一下