学会调试: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