分部分对表格的编辑授权，如果是工程管理部，只有经理才能编辑其中的两列，其他的都没有权限进行编辑。在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
放到PrepareEdit事件：http://www.foxtable.com/webhelp/topics/2255.htm
Select Case e.Col.Name
Case "审核", "项目经理", "项目管理人员"
If User.Group <> "工程管理部" orelse User.IsRole("经理") = falseThen
e.Cancel = true
End If
End Select