| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 老师请问在窗口的控件中如何设置权限？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144649) |
| -- 作者：初心不改再说未来 -- 发布时间：2019/12/26 10:42:00 -- 老师请问在窗口的控件中如何设置权限？ 导航窗口中有个TopicBar控件，现在想根据用户组来区分哪些模块是可以点，哪些不能点，请问下老师在控件中如何区分 |
| -- 作者：有点蓝 -- 发布时间：2019/12/26 10:46:00 -- 在afterload事件，根据用户组把不能点的任务去掉，或者隐藏掉 |
| -- 作者：初心不改再说未来 -- 发布时间：2019/12/26 12:29:00 -- If User.Group <> "经理" Then e.Form.Controls("财务查看").Enabled = False End If 这个写在TopicBar控件窗口的afterload 不对啊，说没有这个控件
|
| -- 作者：初心不改再说未来 -- 发布时间：2019/12/26 13:22:00 -- 顶顶 |
| -- 作者：有点蓝 -- 发布时间：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
|
| -- 作者：初心不改再说未来 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2019/12/26 15:44:00 -- 索引是从0开始的，控件有4个Pages任务组吗（Pages(3)）？第4个Pages任务组有3个任务吗（Links(2)）？ |