以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]页面集合-可视化授权无效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117446)
--  作者：36792209
--  发布时间：2018/4/12 16:12: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.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/4/12 16:54:00
--  
AfterOpenproject事件和LoasUsersetting事件各复制一份代码过去。
--  作者：36792209
--  发布时间：2018/4/12 17:10:00
--  
我试试。。
--  作者：有点甜
--  发布时间：2018/4/12 17:14:00
--  

你需要设置权限的时候，就要运行一次代码。
--  作者：15666282205
--  发布时间：2019/2/27 14:06:00
--  请教可视化授权

可视化授权设置好以后，显示原始表的时候有效，打开窗口页面集合以后就失效了，搜到的几个方法都试了，还是没解决，用的外部数据源
--  作者：有点甜
--  发布时间：2019/2/27 14:09:00
--  
以下是引用15666282205在2019/2/27 14:06:00的发言：

可视化授权设置好以后，显示原始表的时候有效，打开窗口页面集合以后就失效了，搜到的几个方法都试了，还是没解决，用的外部数据源

 

具体问题，请上传一个实例测试。