Foxtable(狐表)用户栏目专家坐堂 → 关于领导审批功能的疑惑


  共有4048人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
jk362223
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:2708 威望:0 精华:0 注册:2012/2/10 18:12:00
关于领导审批功能的疑惑  发帖心情 Post By:2015/3/19 17:05:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/3/19 17:17:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
jk362223
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:2708 威望:0 精华:0 注册:2012/2/10 18:12:00
  发帖心情 Post By:2015/3/19 17:24:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
jk362223
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:2708 威望:0 精华:0 注册:2012/2/10 18:12:00
  发帖心情 Post By:2015/3/19 17:25:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
jk362223
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:2708 威望:0 精华:0 注册:2012/2/10 18:12:00
  发帖心情 Post By:2015/3/19 17:30:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/19 18:30:00 [只看该作者]

 用ie浏览器上传文件。

 回到顶部
帅哥哟,离线,有人找我吗?
jk362223
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:2708 威望:0 精华:0 注册:2012/2/10 18:12:00
  发帖心情 Post By: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登陆后还是能够对审批的该行进行修改,求解决办法!

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/19 20:25:00 [只看该作者]

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

 

 除非没有满足条件。


 回到顶部
帅哥哟,离线,有人找我吗?
JK362223
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:2708 威望:0 精华:0 注册:2012/2/10 18:12:00
  发帖心情 Post By:2015/3/19 20:38:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/19 20:41:00 [只看该作者]

 现在就是不能编辑啊。

 

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


 回到顶部
总数 26 1 2 3 下一页