主题：关于权限问题的咨询~~

 多角色，代码得改。

 

 比如原本判断的 if user.roles = "xxx" then 就得变成 if user.roles like "*xxx*" then

 2楼是最简单的改法。

 

 准确一点的改法，要把user.roles分开

 

 dim roles() as string = user.roles.split(",")

 

 然后一个一个比较

 

 dim flag as boolean = false

 for each r as string in roles

     if r = "xxx" then

         flag = true

         exit for

     end if

 next

 msgbox(flag)

 原本比如是

 

if user.roles = "个案拆分" then

 

 就改成

 

if user.roles like "*个案拆分*" then

 

木有，只能打开窗口以后，下方有一个查找替换的功能。

 

有办法，但比较复杂，你可能控制不来。

 

先打打基础

 

http://www.foxtable.com/help/topics/1600.htm

 

http://www.foxtable.com/help/topics/2405.htm

 

 

看原理，一通百通。

 

知道怎么控制表，就知道怎么控制窗口了。

 

如果只是针对你这个问题。可以。

 

比如，你定义了3个变量

 

a = "区域"

b = "主管"

c = "老板"

 

在代码里面，你直接用这几个变量就行了。这样以后改了角色名，只需要改一个地方即可。

 

用几个角色，改权限控制的代码。

 

比如 A，有三个角色 xyz

 

代码里面，如果有x角色，就允许做；如果有y角色，就允许做；如果是z角色，就允许做；

 

if user.roles like "*x*" then

 

end if

if user.roles like "*y*" then

 

end if

if user.roles like "*z*" then

 

end if

 

 用全局变量就可以这样写

 

a = "x"

b = "y"

c = "z"

 

if user.roles like "*" & a & "*" then

 

end if

if user.roles like "*" & b & "*" then

 

end if 

if user.roles like "*" & c & "*" then

 

end if

 

 回复23楼，不是不要了。而是用代码、用变量去代替。

 

 用授权表，只是不让代码写死，可以灵活变换。

呃，错了

 

For Each s As String In "ComboBox1|TextBox4|Button3|Button1|Button4".Split("|")
    e.Form.Controls(s).Enabled = (User.roles = "日常事务")

 

改成

 

For Each s As String In "ComboBox1|TextBox4|Button3|Button1|Button4".Split("|")
    e.Form.Controls(s).Enabled = (ser.roles like "*日常事务*")