以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助] 可视化授权代码更改求指教。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126603)

--  作者：ml3000631 --  发布时间：2018/10/25 9:09:00 --  [求助] 可视化授权代码更改求指教。 如下图：可视化授权中，最初只能 用户名列中单人进行判断授权，想改为 任意多用户授权，请版大家指点，谢谢！（因为也考虑过“分组名”授权，可是单人覆盖的分组太多，授权细化到表列，这样下来一列也可能多个分组涉及） 此主题相关图片如下：990.png 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.Name & "\'" )         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

--  作者：有点蓝 --  发布时间：2018/10/25 9:49:00 --   For Each dr As DataRow In DataTables("授权表").Select("\',\' + 用户名+\',\' like \'%," & User.Name & ",%\'" ) [此贴子已经被作者于2018/10/25 9:49:02编辑过]

--  作者：ml3000631 --  发布时间：2018/10/25 13:02:00 --   谢谢版主大大！！！