| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关联子表列权限设置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111835) |
| -- 作者：taifeng110 -- 发布时间：2017/12/30 0:16:00 -- 关联子表列权限设置 如何设置好的关联子表的某几列对于A用户不可编辑，我是按照以下代码设置的，设置好了后，关联子表界面里还是都可以输入，只是在子表界面上确实锁定状态。 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/12/30 19:49:00 -- 1、把关联表隐藏：http://www.foxtable.com/webhelp/scr/0094.htm 2、把关联表添加进授权表 |