Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有2244人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
LXP166
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:61 积分:810 威望:0 精华:0 注册:2018/2/28 11:21:00
[求助]  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/3 11:22:00 [只看该作者]

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
LXP166
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:61 积分:810 威望:0 精华:0 注册:2018/2/28 11:21:00
[求助]已发上附件  发帖心情 Post By:2019/1/3 13:32:00 [只看该作者]

附件一发,请帮忙看看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/3 15:10:00 [只看该作者]


 回到顶部