分部分对表格的编辑授权，如果是工程管理部，只有经理才能编辑其中的两列，其他的都没有权限进行编辑。在afterOpenProjec中如下代码，经理也是全部不能编辑。如何修改？
if then
ElseIf User.Group = "工程管理部" Then
DataTables("合同台账").AllowEdit = False
Tables("合同台账").AllowEdit = False
If User.IsRole("经理") Then
DataTables("合同台账").DataCols("项目经理").AllowEdit = True
Tables("合同台账").Cols("项目经理").AllowEdit = True
DataTables("合同台账").DataCols("项目管理人员").AllowEdit = True
Tables("合同台账").Cols("项目管理人员").AllowEdit = True
End If
end if
在startedit事件如下,也不起作用。
Select Case e.Col.Name
Case "审核", "项目经理", "项目管理人员"
If User.Group = "工程管理部" AndAlso User.IsRole("经理") = True Then
e.Cancel = False
End If
End Select
加好友 
发短信
Post By：2025/4/29 21:53:00 [显示全部帖子]
