以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- TabControl权限 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186768) |
-- 作者:longyanlin -- 发布时间:2023/5/28 10:45:00 -- TabControl权限 表A有三列“部门”,“姓名”,“页面”,采用不同用户登录显示不同的行, 代码:If User.Name = "开发者" or User.Name = "管理员" Then DataTables("表A").LoadFilter = "" Else DataTables("表A").LoadFilter = "姓名 = \'" & User.Name & "\'" End If DataTables("表A").Load() 现请求一段代码,能够依据表A中的"页面"列的内容打开TabControl中的对应标题的页面,从而实现权限管理,请哪位老师或大神帮忙给段代码,谢谢! 如图:
|
-- 作者:有点蓝 -- 发布时间:2023/5/28 20:18:00 -- 表格currentchanged事件 If e.Table.Current Is Nothing orelse forms("窗口1").opened = false Then \'如果Current为Nothing Return \'则返回 End If Forms("窗口1").Controls("TabControl1").SelectedPage = Forms("窗口1").Controls("TabControl1").TabPages(e.Table.Current("页面"))
|
-- 作者:yaojun -- 发布时间:2023/6/23 15:42:00 -- 蓝老师,好像没有反应哦 |
-- 作者:有点蓝 -- 发布时间:2023/6/24 20:29:00 -- TabControl没有给页签设置名称 |
-- 作者:longyanlin -- 发布时间:2023/7/2 11:08:00 -- 谢谢,可以了 |