以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  角色名能控制权限加载吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174909)

--  作者：qctv --  发布时间：2022/2/10 23:06:00 --  角色名能控制权限加载吗？ If User.Roles = "管理" Or User.Roles = "开发" Then     DataTables("支付单位维度表").LoadFilter = "" Else     DataTables("支付单位维度表").LoadFilter = "支公司 = \'" & User.Roles & "\'" End If DataTables("支付单位维度表").Load() 为啥？我设置了加载不了

--  作者：有点蓝 --  发布时间：2022/2/10 23:11:00 --   角色的判断参考：http://www.foxtable.com/webhelp/topics/0609.htm If User.IsRole( "管理") Or...     DataTables("支付单位维度表").LoadFilter = "" Else     DataTables("支付单位维度表").LoadFilter = "支公司 in (\'" & User.Roles.replace(",","\',\'") & "\')"

--  作者：qctv --  发布时间：2022/2/10 23:16:00 --   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 Tables("授权").Visible = (User.Type <> UserTypeEnum.User ) If User.Type = UserTypeEnum.User Then     For Each dr As DataRow In DataTables("授权").Select("用户名 = \'" & User.Roles & "\'" )         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 End If

--  作者：有点蓝 --  发布时间：2022/2/11 8:23:00 --   For Each dr As DataRow In DataTables("授权").Select("用户名 in (\'" & User.Roles.replace(",","\',\'") & "\')"