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
加好友 
发短信
Post By：2020/4/8 8:52:00 [只看该作者]
