主题：多角色为什么无效

请问专家，我做了个多角色管理功能，单

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:角色管理测试.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

if User.IsRole("总经理") then

elseif User.IsRole("经理") then

elseif User.IsRole("员工") then

end if