主题：[求助]授权表问题

按照帮助做了一个可视化授权表。稍微加了一个“只可见”栏 ，可是怎么样同时勾选两个只可见的时候，能够正常授权呢，现在的代码勾选两个的时候，他只能显示一个。

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

 

或者改成

 

 

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

 

表有点多，所以只可见会方便点

这样写还是有问题，切换用户，或者用其他用户登录之后不加载任何数据了。

1、参考实例

 

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

 

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