以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于领导审批功能的疑惑  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65637)

--  作者:jk362223
--  发布时间:2015/3/19 17:05:00
--  关于领导审批功能的疑惑
关于该功能实现的相关疑问请见上传的Word文档,谢谢!
--  作者:Bin
--  发布时间:2015/3/19 17:17:00
--  
看不到文件 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
--  作者:jk362223
--  发布时间:2015/3/19 17:24:00
--  
相关疑惑在此上传文件中,劳烦各位帮忙解决一下!
--  作者:jk362223
--  发布时间:2015/3/19 17:25:00
--  
抱歉,一下子忘了上传文件。楼下已上传,劳烦帮忙!
--  作者:jk362223
--  发布时间:2015/3/19 17:30:00
--  
显示上传成功了,但帖子内容中却没有显示上传好的文件????
--  作者:有点甜
--  发布时间:2015/3/19 18:30:00
--  
 用ie浏览器上传文件。
--  作者:jk362223
--  发布时间:2015/3/19 20:19:00
--  

依然上传不了,我还是用文字叙述下:


假如有员工BC,其中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登陆后还是能够对审批的该行进行修改,求解决办法!

 


--  作者:有点甜
--  发布时间:2015/3/19 20:25:00
--  

 呃,代码没有问题。不可能还能编辑表。

 

 除非没有满足条件。


--  作者:JK362223
--  发布时间:2015/3/19 20:38:00
--  
单就在用户管理那里进行组别定义区分呀,也不需要其它的条件限制,只是让非行政办人员在审批后不能编辑
--  作者:有点甜
--  发布时间:2015/3/19 20:41:00
--  

 现在就是不能编辑啊。

 

 要么你就上传例子说明问题