以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  想按照角色设置可视化分配权限这段代码行不  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65423)
--  作者：jhq1989
--  发布时间：2015/3/16 9:47:00
--  想按照角色设置可视化分配权限这段代码行不
For Each dr As DataRow In DataTables("角色权限").Select("角色名称=\'"& UserInfo.Role &"\'")
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
    Next
--  作者：jhq1989
--  发布时间：2015/3/16 10:01:00
--  怎么没人回复？
……
--  作者：Bin
--  发布时间：2015/3/16 10:09:00
--  
For Each dr As DataRow In DataTables("角色权限").Select("角色名称 in (\'"& User.Roles..Roles.replace(",","\',\'") & "\')")
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑") 
        End If
    Next
--  作者：jhq1989
--  发布时间：2015/3/16 10:24:00
--  

 For Each dr As DataRow In DataTables("角色权限").Select("角色名称 in (\'" & User.Roles..Roles.replace(",","\',\'") & "\')")

这段代码出现了编译问题，提示应为标识符
--  作者：Bin
--  发布时间：2015/3/16 10:26:00
--  
User.Roles.replace(",","\',\'")