领导审批功能的实现
假定有两个用户分组,分别为经理和雇员,经理有审批和取消审批的功能,某行一旦通过审批,将禁止修改。
为此可以增加一个逻辑型列,名为“审批”,然后将表事件PrepareEdit的代码设置为:
If e.Col.Name = "审批" Then '只有经理才能审批
If User.Group <> "经理" Then
e.Cancel = True
End If
ElseIf e.Row("审批") = True Then '如果此行已经审批了,则禁止修改
e.Cancel = True
End If
经理级别的用户要审批某行时,只需单击勾选此行的审批列即可,通过审批的行,经理和雇员都不能编辑,除非经理取消审核。
如何实现
经理级别的用户要审批某行时,只需单击勾选此行的审批列即可,通过审批的行,一部分列内容经理和雇员都不能编辑,除非经理取消审核。另一部分列内容编辑不受限制