- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 多角色为什么无效 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142241)
-- 发布时间：2019/10/21 21:34:00
-- 多角色为什么无效
请问专家，我做了个多角色管理功能，单
角色可用，添加多角色无法运行，程序见附件，多角色管理代码如下，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:角色管理测试.rar |
角色可用，添加多角色无法运行，程序见附件，多角色管理代码如下，
Select Case User.Roles
Case "总经理"
Select Case e.Link.Text
Case "总经理区域"
Forms("总经理区域").open()
Case "经理区域"
Forms("经理区域").open()
Case "员工区域"
Forms("员工区域").open()
End Select
Case "经理"
Select Case e.Link.Text
Case "经理区域"
Forms("经理区域").open()
Case "员工区域"
Forms("员工区域").open()
End Select
Case "员工"
Select Case e.Link.Text
Case "员工区域"
Forms("员工区域").open()
End Select
End Select
Case "总经理"
Select Case e.Link.Text
Case "总经理区域"
Forms("总经理区域").open()
Case "经理区域"
Forms("经理区域").open()
Case "员工区域"
Forms("员工区域").open()
End Select
Case "经理"
Select Case e.Link.Text
Case "经理区域"
Forms("经理区域").open()
Case "员工区域"
Forms("员工区域").open()
End Select
Case "员工"
Select Case e.Link.Text
Case "员工区域"
Forms("员工区域").open()
End Select
End Select
-- 发布时间：2019/10/21 22:00:00
--
只能这样判断：
if User.IsRole("总经理") then
elseif User.IsRole("经理") then
elseif User.IsRole("员工") then
end if