下面代码放到窗口计时事件中，开启计时器
e.Form.TimerEnabled = False
e.Form.Strips("工具栏").Items("删除").Visible = (_UserName = "管理员")
If _UserGroup <> "卡特线" And _UserGroup <> "缸盖线" And _UserGroup <> "缸体线" And _UserGroup <> "OE线" And _UserGroup <> "6D缸体线" Then
msgbox(1)
e.form.controls("线长审核").visible = False
msgbox(2)
End If
msgbox(3)
If _UserGroup <> "经理" And _UserGroup <> "采购部" Then
msgbox(3)
e.form.controls("经理审核").visible = False
msgbox(4)
End If
If _UserGroup <> "仓库" Then
msgbox(5)
e.form.controls("订单取消").visible = False
msgbox(6)
End If
加好友 
发短信
Post By：2019/1/23 11:23:00 [显示全部帖子]
