一下菜单中 调用页面 后 通过按钮调用另外的窗口, 综合副总经理" "开发者" 都执行了,但"综合副总经理" 执行后自动跳出了(屏幕一闪调用的页面就消失了),开发者正确执行了会停留在调用的页面上
Case "绩效管理"
If User.name = "综合副总经理" Or User.name = "开发者" Then
e.Form.Controls("TabControl1").tabpages(2).visible = True
e.Form.Controls("TabControl1").Selectedindex =2
DataTables("绩效考核").Load
Tables("绩效考核").Visible = True
Tables("绩效考核").AllowEdit = True
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView3")
trv.BuildTree("绩效考核","部门|班组|员工姓名")
trv.Nodes.Insert("显示所有行",0)
Else
e.Form.Controls("TabControl1").tabpages(2).visible = False
e.Form.Controls("TabControl1").Selectedindex =2
MessageBox.show("你无权执行此项操作!")
End If
End Select