- 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=28231)
-- 发布时间：2013/1/23 8:37:00
-- [求助]
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:多角色权限控制问题0.foxdb |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:多角色权限控制问题1.foxdb |
Select Case User.Roles
Case "XXX"
e.Form.Controls("Button1").Visible = False
Case Else
e.Form.Controls("Button1").Visible = True
End Select
AAA(A):XXX、YYY
BBB(B):XXX
多角色权限控制问题0:AAA登录时（A、B可见）应该是看不到的，可是还是看到了。
Select Case User.Roles
Case "XXX"
e.Form.Controls("Button1").Visible = True
Case Else
e.Form.Controls("Button1").Visible = False
End Select
AAA(A):XXX、YYY
BBB(B):XXX
多角色权限控制问题1:AAA登录时（A、B可见）应该是看得到，可是还是看不到了。
我的目的是要达到：当满足多角色中得一个角色，则为满足条件。也只有这样，多角色测有意义。不知道这样是否可以达到目的，请多多指教，谢谢！
-- 发布时间：2013/1/23 9:04:00
--
代码改一下，因为你的Roles的值是 xxx,yyy
If User.Roles Like "XXX,*" OrElse User.Roles Like "*,XXX,*" OrElse User.Roles Like "*,XXX" Then
e.Form.Controls("Button1").Visible = False
Else
e.Form.Controls("Button1").Visible = True
End If
-- 发布时间：2013/1/23 14:35:00
--
Very Good! Thanks!