以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]授权表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117007)
--  作者：81538475
--  发布时间：2018/4/4 9:31:00
--  [求助]授权表问题
按照帮助做了一个可视化授权表。稍微加了一个“只可见”栏 ，可是怎么样同时勾选两个只可见的时候，能够正常授权呢，现在的代码勾选两个的时候，他只能显示一个。
代码如下：
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("分组名= \'" & User.Group & "\'" )
        If dr("只可见")=True Then
            For Each t As Table In Tables
                t.Visible = False
            Next
           If dr.IsNull("列名") Then
                Tables(dr("表名")).Visible=True
           Else
                Tables(dr("表名")).Visible=True
                 For Each c As Col In Tables(dr("表名")).Cols
                    c.Visible = False
                   Next
                 Tables(dr("表名")).Cols(dr("列名")).Visible = dr("只可见")
           End If
        Else 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/4 9:41:00
--  

你勾选【只可见】的时候，【不可编辑】勾选、【不可见】取消勾选，不就是达到了同样的效果？

 

或者改成

 

 

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each t As Table In Tables
        t.Visible = False
       
        For Each c As Col In t.Cols
            c.Visible = False
        Next
    Next
    For Each dr As DataRow In DataTables("授权表").Select("分组名= \'" & User.Group & "\'" )
        If dr("只可见")=True Then
            If dr.IsNull("列名") Then
                Tables(dr("表名")).Visible=True
                Tables(dr("表名")).AllowEdit=False
               
            Else
                Tables(dr("表名")).Visible=True
                Tables(dr("表名")).Cols(dr("列名")).Visible = True
                Tables(dr("表名")).Cols(dr("列名")).AllowEdit = False
            End If
        Else 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/4 9:43:37编辑过]
--  作者：81538475
--  发布时间：2018/4/4 9:46:00
--  
表有点多，所以只可见会方便点
--  作者：81538475
--  发布时间：2018/4/4 10:31:00
--  
这样写还是有问题，切换用户，或者用其他用户登录之后不加载任何数据了。
--  作者：有点甜
--  发布时间：2018/4/4 10:46:00
--  

1、参考实例

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=5&ID=23959&skin=0

 

2、不理解你要达到什么目的，请上传具体例子说明。