以文本方式查看主题 - 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
|