以文本方式查看主题

-  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中的对应标题的页面,从而实现权限管理,请哪位老师或大神帮忙给段代码,谢谢!
如图:

图片点击可在新窗口打开查看此主题相关图片如下:如图.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间: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
--  
谢谢,可以了