主题：[求助]

For Each dr As DataRow In DataTables("授权表").Select("角色 = '" & User.Roles & "'" )

设置权限，可以看这里

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=5&ID=23959&skin=0

1、

Dim filter As String = "1=2"
For Each s As String In user.Roles.split(",")
    filter &= " or 角色 = '" & s & "'"
Next
For Each dr As DataRow In DataTables("授权表").Select(filter)

2、AfterOpenProject事件

Dim ls As new List(Of String)
For Each u As UserInfo In users
    If u.Roles > "" Then
        For Each s As String In u.Roles.Split(",")
            If s > "" AndAlso ls.Contains(s) = False Then
                ls.Add(s)
            End If
        Next
    End If
Next
Tables("表A").cols("第一列").ComboList = String.Join("|", ls.ToArray)