以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  审核界面  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148390)
--  作者：有点蓝
--  发布时间：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
--  作者：有点蓝
--  发布时间：2020/4/7 13:56:00
--  
使用文字描述一下，双击里要实现的功能。
--  作者：有点蓝
--  发布时间：2020/4/7 15:22:00
--  
_UserGroup存储的是什么内容？一个用户会不会有多个分组？

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

其它判断也是同样问题
--  作者：有点蓝
--  发布时间：2020/4/7 16:00:00
--  
当前用户_UserGroup是什么内容？什么东西不能执行？
--  作者：有点蓝
--  发布时间：2020/4/7 16:28:00
--  
上传实例测试
--  作者：有点蓝
--  发布时间：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