专家坐堂-想按照角色设置可视化分配权限这段代码行不Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  想按照角色设置可视化分配权限这段代码行不  (http://foxtable.net/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(",","\',\'")