主题：请教如何通过用户角色实现授权管理

此主题相关图片如下：如何通过用户角色实现授权管理.bmp

datatables("表1").loadfilter="公司名称=‘" & user.Roles & "'"

datatables("表1").loadfilter="公司名称=‘" & user.Roles & "'"

这条代码显然是错误的，当用户角色只勾选一家公司时这样写是对的，但用户角色勾选多家公司时，这样写显然是错误的。

datatables("表1").loadfilter="公司名称=‘" & user.Roles & "'"

这条代码显然是错误的，当用户角色只勾选一家公司时这样写是对的，但用户角色勾选多家公司时，这样写显然是错误的。如用户角色勾选一厂、二厂、三厂时，user.Roles 的值为“一厂，二厂，三厂”，而公司名称任何一个值都不可是这样的，这条代码显然错得离谱。

参考代码

 

Dim filter As String = "1=2"
For Each s As String In user.Roles.split(",")
    filter &= " or 公司名称 = '" & s & "'"
Next

msgbox(filter)