左栏'); } else{ document.write('关闭左栏'); } }catch(e){alert(e);}
Foxtable(狐表)用户栏目专家坐堂 → TabControl权限


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

主题:TabControl权限

美女呀,离线,留言给我吧!
longyanlin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:166 积分:1609 威望:0 精华:0 注册:2016/5/12 14:53:00
TabControl权限  发帖心情 Post By:2023/5/28 10:45:00 [只看该作者]

表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
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:576 积分:4737 威望:0 精华:0 注册:2014/7/3 15:28:00
  发帖心情 Post By:2023/6/23 15:42:00 [只看该作者]

蓝老师,好像没有反应哦

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/24 20:29:00 [只看该作者]

TabControl没有给页签设置名称

 回到顶部
美女呀,离线,留言给我吧!
longyanlin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:166 积分:1609 威望:0 精华:0 注册:2016/5/12 14:53:00
  发帖心情 Post By:2023/7/2 11:08:00 [只看该作者]

谢谢,可以了

 回到顶部