以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  角色权限  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140836)
--  作者：yifan3429
--  发布时间：2019/9/16 8:07:00
--  角色权限
下面的代码只能执行一个用户一个角色
如果多个角色
改成 Select Case User.IsRole  就会报错
---------------------------
错误
---------------------------
编译错误:没有为“Public Function IsRole(nm As String) As Boolean”的参数“nm”指定参数。



错误代码：Select Case User.IsRole
---------------------------
确定   
---------------------------

下面代码我解决一个用户多个角色时一样可以执行

Select Case User.Roles
    Case "管理员"
        Tables("终端用户").OpenLoadTree("客户等级|楼盘",150,10,True)        
    Case "部门管理"
        Dim flt As String
        flt = "核算主体 Like \'%" & User.Group & "%\'"
        Tables("终端用户").OpenLoadTree("客户等级|楼盘",150,10,True,flt)        
    Case "部门职员"
        Dim flt As String
        flt = "项目组 Like \'%" & User.Name & "%\'"
        Tables("终端用户").OpenLoadTree("客户等级|楼盘",150,10,True,flt)
End Select
--  作者：有点蓝
--  发布时间：2019/9/16 8:57:00
--  
使用if语句

if User.IsRole("管理员") then
管理员的处理
elseif User.IsRole("部门管理") then
部门管理的处理
……