主题：关于领导审批功能的疑惑

关于该功能实现的相关疑问请见上传的Word文档，谢谢！

相关疑惑在此上传文件中，劳烦各位帮忙解决一下！

抱歉，一下子忘了上传文件。楼下已上传，劳烦帮忙！

显示上传成功了，但帖子内容中却没有显示上传好的文件？？？？

依然上传不了，我还是用文字叙述下：

假如有员工B和C，其中B定义组隶属行政办，C为医疗部，C完成表A填写后由B进行审批，经B审批后的表A中某行不能再做修改，其功能设置步骤如下：

 

 

表A编辑窗口中增加一个“审批”按钮，此按钮代码为：

If User.Group = "行政办" Then
    Tables("表A").Current("审批人") = User.Name
    Tables("表A").Current("审批日期") = Date.Today()
Else
    MessageBox.show("你无审批权限!")
End If

 

然后该表编辑窗口再增加一个“取消审批”按钮，代码如下：

If User.Group = "行政办" Then
    Tables("表A").Current("审批人") = Nothing
    Tables("表A").Current("审批日期") = Nothing
Else
    MessageBox.show("你无取消审批权限!")
End If

 

 

表A增加一个“审批”逻辑列，并在表属性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

If e.Row.IsNull("审批人") = False Then '如果审批人列不为空
    e.Cancel = True '则禁止编辑
End If

经上步骤填写后，C登陆后还是能够对审批的该行进行修改，求解决办法！

 

单就在用户管理那里进行组别定义区分呀，也不需要其它的条件限制，只是让非行政办人员在审批后不能编辑

我没有说清楚，是该表在审批后不能编辑，该表数据的录入窗口依然能编辑

表A编辑窗口中增加一个“审批”按钮，此按钮代码为： If User.Group = "行政办" Then     Tables("表A").Current("审批人") = User.Name     Tables("表A").Current("审批日期") = Date.Today() Else     MessageBox.show("你无审批权限!") End If   然后该表编辑窗口再增加一个“取消审批”按钮，代码如下： If User.Group = "行政办" Then     Tables("表A").Current("审批人") = Nothing     Tables("表A").Current("审批日期") = Nothing Else     MessageBox.show("你无取消审批权限!") End If     表A增加一个“审批”逻辑列，并在表属性 DatacolChanging事件，写代码   If e.DataCol.Name = "审批" Then '只有经理才能审批     If User.Group <> "行政办"  Then         e.Cancel = True     End If ElseIf e.DataRow("审批") = True Then '如果此行已经审批了,则禁止修改     e.Cancel = True  End If If e.DataRow.IsNull("审批人") = False Then '如果审批人列不为空     e.Cancel = True '则禁止编辑 End If 这样设置后还是不行。点击审批按钮后，审批人列有名字，但审批日期无内容，且审批逻辑列也点击不了，表中内容及录入窗口中的内容依然可以更改

压缩文件请看附件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3_201503200825.zip

已上传，劳烦老师帮忙解决