下面的代码只能执行一个用户一个角色
如果多个角色
改成 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
加好友 
发短信
Post By：2019/9/16 8:07:00 [显示全部帖子]
