Foxtable(狐表) → 用户栏目 → 专家坐堂 → 审核界面


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

主题：审核界面
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/7 10:16:00 [显示全部帖子]

学会调试：http://www.foxtable.com/webhelp/scr/1485.htm

msgbox(_UserGroup) '弹出什么
If _UserGroup Like "*经理*" = False  Then
msgbox(“1”)'能不能弹出
    Forms("审核界面").open()
    Dim tab1 As WinForm.TabControl = Forms("审核界面").Controls("操作业务")
    tab1.TabPages("经理审核").Visible = False
Else
msgbox(“2”)'能不能弹出
    If Tab
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/7 13:56:00 [显示全部帖子]

使用文字描述一下，双击里要实现的功能。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/7 15:22:00 [显示全部帖子]

_UserGroup存储的是什么内容？一个用户会不会有多个分组？

如果登录人员分组为线长
那么应该是：If _UserGroup Like "*线长*"   Then
而不是：If _UserGroup Like "*线长*" = False  Then吧！这个判断应该是_UserGroup不包含“线长”2个字

其它判断也是同样问题
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/7 16:00:00 [显示全部帖子]

当前用户_UserGroup是什么内容？什么东西不能执行？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/7 16:28:00 [显示全部帖子]

上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/8 9:46:00 [显示全部帖子]

e.Cancel = True '禁止进入编辑状态
If _UserGroup Like "*线长*"   Then
    Forms("审核界面").Open()
    Dim tab As WinForm.TabControl = Forms("审核界面").Controls("操作业务")
    For Each p As WinForm.TabPage In tab.TabPages
        p.Visible = False
    Next
    tab.TabPages("线长审核").Visible = True
End If
If _UserGroup Like "*经理*"   Then
    If e.Row("操作类型") = "修磨处理"  OrElse e.Row("操作类型") = "刀盘调试" Then
        Forms("审核界面").open()
        Dim tab1 As WinForm.TabControl = Forms("审核界面").Controls("操作业务")
        For Each p As WinForm.TabPage In tab1.TabPages
            p.Visible = False
        Next
        tab1.TabPages("经理审核").Visible = True
    ElseIf e.Row("操作类型") = "报废"  OrElse e.Row("操作类型") = "再利用库"    Then
        e.Row("经理批准") = _UserName
        e.Row("批准日期") = Date.Today()
        e.Row("审核状态") = "已完成"
        e.Row("需审核人") = "已完成"
    End If
End If
If _UserGroup Like "*技术员*"  Then
    Forms("审核界面").open()
    Dim tab2 As WinForm.TabControl = Forms("审核界面").Controls("操作业务")
    For Each p As WinForm.TabPage In tab2.TabPages
        p.Visible = False
    Next
    tab2.TabPages("技术审核").Visible = True
End If
If _UserGroup Like "*采购员*"  Then
    Forms("审核界面").open()
    Dim tab3 As WinForm.TabControl = Forms("审核界面").Controls("操作业务")
    For Each p As WinForm.TabPage In tab3.TabPages
        p.Visible = False
    Next
    tab3.TabPages("采购处理").Visible = True
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06055 秒, 5 次数据查询