| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何设置默认用户看不到TopicBar1的部分内容？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176350) |
| -- 作者：初心不改再说未来 -- 发布时间：2022/4/9 17:45:00 -- 如何设置默认用户看不到TopicBar1的部分内容？ 有2个页面想隐藏起来不给默认分组看，应该怎么写哇老师 |
| -- 作者：初心不改再说未来 -- 发布时间：2022/4/9 19:23:00 -- If User.Group = "编辑" Then Forms("导航窗口").Controls("TopicBar1").Pages("内部编辑区").Visible = True Else Forms("导航窗口").Controls("TopicBar1").Pages("内部编辑区").Visible = False End If 说with什么变量不对
|
| -- 作者：初心不改再说未来 -- 发布时间：2022/4/9 19:49:00 -- Dim pg As WinForm.TabPage pg = Forms("导航窗口").Controls("TopicBar1").TabPages(1) If User.Group = "编辑" Then pg.Visible = False Else pg.Visible = True End If 也不对
|
| -- 作者：初心不改再说未来 -- 发布时间：2022/4/9 19:55:00 -- If User.Group = "编辑" Then DataTables("Notice").AllowEdit = True Else DataTables("Notice").AllowEdit = False Forms("导航窗口").Controls("TopicBar1").Pages(2).Visible = False End If 未将对象引用到对象实例
[此贴子已经被作者于2022/4/9 20:24:19编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/4/10 20:09:00 -- 出错可能原因： 1、没有"Notice"这表 2、窗口名称，控件名称不对，导航控件没有"内部编辑区"这个pge 3、TopicBar1没有3个page
|
| -- 作者：初心不改再说未来 -- 发布时间：2022/4/10 20:52:00 -- If User.Group = "编辑" Then DataTables("Notice").AllowEdit = True Forms("导航窗口").Controls("TopicBar1").Pages(0).Visible = True Else DataTables("Notice").AllowEdit = False Forms("导航窗口").Controls("TopicBar1").Pages(0).Visible = False End If 窗口名称正确，TopicBar1正确 提示未将对象引用到对象实例 删除Forms("导航窗口").Controls("TopicBar1").Pages(0).Visible = False 就不提示了
|
| -- 作者：初心不改再说未来 -- 发布时间：2022/4/10 20:55:00 -- 报错之后进入程序，切换用户到非编辑组，就可以正常隐藏TopicBar1的第一个页，但是加载的时候就报错 |
| -- 作者：初心不改再说未来 -- 发布时间：2022/4/10 20:59:00 -- 好了搞定了，换到afteropenproject里面了就好了 |