加好友 发短信
等级:九尾狐
帖子:2649
积分:19384
威望:0
精华:1
注册:2008/9/12 9:19:00
|
权限设置 Post By:2009/11/29 22:58: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
运行后原来隐藏的表和隐藏的列全都出来了。 我现在只要设置表的编辑权限,不要涉及表和列的可见性
|
|