主题：[求助]

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

点击浏览该文件:多角色权限控制问题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

 

 

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

 

 

 

我的目的是要达到：当满足多角色中得一个角色，则为满足条件。也只有这样，多角色测有意义。不知道这样是否可以达到目的，请多多指教，谢谢！

 

 代码改一下，因为你的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

Very Good!  Thanks!