Foxtable(狐表)用户栏目专家坐堂 → 老师请问在窗口的控件中如何设置权限?


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

主题:老师请问在窗口的控件中如何设置权限?

帅哥哟,离线,有人找我吗?
初心不改再说未来
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3905 威望:0 精华:0 注册:2017/7/19 10:58:00
老师请问在窗口的控件中如何设置权限?  发帖心情 Post By:2019/12/26 10:42:00 [只看该作者]

导航窗口中有个TopicBar控件,现在想根据用户组来区分哪些模块是可以点,哪些不能点,请问下老师在控件中如何区分

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/26 10:46:00 [只看该作者]

在afterload事件,根据用户组把不能点的任务去掉,或者隐藏掉

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3905 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2019/12/26 12:29:00 [只看该作者]

If User.Group <> "经理" Then
    e.Form.Controls("财务查看").Enabled = False
    
End If

这个写在TopicBar控件窗口的afterload  不对啊,说没有这个控件

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3905 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2019/12/26 13:22:00 [只看该作者]

顶顶

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/26 14:22:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0851.htm

Dim tl1 As WinForm.TopicLink
Dim
 tl2 As WinForm.TopicLink
tl1 = Forms(
"窗口1").Controls("TopicBar1").Pages(0).Links(0)
tl1.visible = fasle
tl2 = Forms(
"窗口1").Controls("TopicBar1").Pages("项目").Links("打开")
tl2.visible = fasle

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3905 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2019/12/26 15:41:00 [只看该作者]

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.9.26.1
错误所在事件:窗口,导航窗口,AfterLoad
详细错误信息:
索引超出范围。必须为非负值并小于集合大小。
参数名: index



代码:
Dim tl1 As WinForm.TopicLink
Dim tl2 As WinForm.TopicLink
If User.Group <> "经理" Then
    tl1 = Forms("导航窗口").Controls("TopicBar1").Pages(3).Links(2)
    tl1.visible = False
    'tl2 = Forms("窗口1").Controls("TopicBar1").Pages("项目").Links("打开")
    ' tl2.visible = fasle
    
End If

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/26 15:44:00 [只看该作者]

索引是从0开始的,控件有4个Pages任务组吗(Pages(3))?第4个Pages任务组有3个任务吗(Links(2))?

 回到顶部