主题：[求助]有关可视化授权的代码（已解决）

一个可视化授权的案例，已实现《表权限》表的列名列多值字段功能，可根据《用户》表权限列的值对表A、B、C进行权限管理。
现在的问题是，《用户》表的权限列如果是多值字段（如张2），如何修改以下代码来实现权限管理。

'可视化授权
For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = True
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
If User.Group <> "厂办" Then
    Tables("表权限").Visible = False
Else
    Tables("表权限").Visible = True
End If
For Each dr As DataRow In DataTables("表权限").Select("权限 = '" & quanx & "'" )
    If dr.IsNull("列名") Then
        Tables(dr("表名")).Visible = Not dr("不可见")
        Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
    Else
        Dim nms() As String = dr("列名").Split(",")
        For Each nm As String In nms
            Tables(dr("表名")).Cols(nm).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(nm).AllowEdit = Not dr("不可编辑")
        Next
    End If
Next

 

 

 

 

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

点击浏览该文件:案例2.table

 两句代码。

quanx = "'" & quanx.Replace(",", "','") & "'"
For Each dr As DataRow In DataTables("表权限").Select("权限 in (" & quanx & ")" )

谢谢lin_hailun老师的指教，问题得到解决，再次衷心感谢！！

以上代码好像得到的是几个权限的并集，如张2既有生产也设备的权限，假设设备的权限不可见表A，生产的权限不可见表B，那以上代码得到的是张2既不见表A也不可见表B。这样的话张2的权限变窄了。应该是要求几个权限的交集才对吧。请教如何实现。

不同的问题，请分别发帖提问，不要跟在人家后面，否则大家注意不到的。