以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129652)

--  作者:LXP166
--  发布时间:2019/1/3 11:14:00
--  [求助]
  一下菜单中  调用页面 后 通过按钮调用另外的窗口,    综合副总经理"   "开发者" 都执行了,但"综合副总经理"  执行后自动跳出了(屏幕一闪调用的页面就消失了),开发者正确执行了会停留在调用的页面上
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

--  作者:有点甜
--  发布时间:2019/1/3 11:22:00
--  

 

代码没问题,做一个例子发上来测试。

 


--  作者:LXP166
--  发布时间:2019/1/3 13:32:00
--  [求助]已发上附件
附件一发,请帮忙看看
--  作者:有点甜
--  发布时间:2019/1/3 15:10:00
--  

请正确上传附件

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78