按照帮助做了一个可视化授权表。稍微加了一个“只可见”栏 ，可是怎么样同时勾选两个只可见的时候，能够正常授权呢，现在的代码勾选两个的时候，他只能显示一个。代码如下：
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
加好友 
发短信
Post By：2018/4/4 9:31:00 [显示全部帖子]
