以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教如何隐藏关联窗口信息  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103730)
--  作者：wkq001
--  发布时间：2017/7/15 16:13:00
--  请教如何隐藏关联窗口信息
我有几个表，分别按用户授权，但不同用户进去时还是能看见应该隐藏的其它表窗口内容，请教大师如何办到隐藏的目的？
--  作者：有点蓝
--  发布时间：2017/7/15 16:33:00
--  
如何做授权的，贴出代码。

需要隐藏的表都要加入授权里进行控制的
--  作者：wkq001
--  发布时间：2017/7/15 17:43: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
--  作者：有点甜
--  发布时间：2017/7/16 12:18:00
--  

 你不是可以单独设置关联表的显示隐藏？还可以设置其列的显示隐藏。