- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]不同的用户登录系统，显示不同的菜单 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13584)
-- 发布时间：2011/10/18 13:53:00
-- [求助]不同的用户登录系统，显示不同的菜单
菜单"页面1"下有“任务11”、“任务12”、“任务13”、“任务14”四个菜单，请问如何做出这样的效果：
用户1登录系统，显示“任务11”、“任务12”两个菜单，“任务13”、“任务14”两个菜单隐藏(不显示)；用户2登录系统，显示“任务13”、“任务14”两个菜单，“任务11”、“任务12”两个菜单隐藏(不显示)。这个效果如何实现，请狐爸爸及各位朋友指点一下，谢谢！
此主题相关图片如下：未命名.jpg
-- 发布时间：2011/10/18 14:01:00
--
很简单，不同的人进去，隐藏或显示不同的命令，例如在窗口的AfterLoad设置代码：
Dim bar As WinForm.TopicBar = e.Form.Controls("TopicBar1")
Select Case User.name
Case "张三"
bar.Pages("页面1").Links("任务2").Visible = False
bar.Pages("页面1").Links("任务3").Visible = False
Case "李四"
bar.Pages("页面2").Links("任务4").Visible = False
bar.Pages("页面1").Links("任务1").Visible = False
End Select
这样张三看不到页面1的任务2和任务3，李四看不到页面1的任务1和页面2的任务4
-- 发布时间：2011/10/18 14:03:00
--
狐狸爸爸 谢谢 ！ 你真好！
-- 发布时间：2011/10/18 14:07:00
--
狐狸爸爸 使用上面的代码，会出现这样的一个错误！如上面的图片所示！
此主题相关图片如下：未命名1.jpg
-- 发布时间：2011/10/18 14:11:00
--
狐狸爸爸 帮我看一下、怎么出现上面那样的错误！
-- 发布时间：2011/10/18 14:19:00
--
看看代码中的页面1、任务1这样的名称，和你实际的名称是否一致
-- 发布时间：2011/10/18 14:22:00
--
是一致的，我用账号测试，点击菜单，就会出现上面的错误提示
-- 发布时间：2011/10/18 14:28:00
--
我试了好多次，都次出现这样的错误，狐狸爸爸，帮我解决一下啊。
-- 发布时间：2011/10/18 14:29:00
--
第一次打开文件用张三登陆，第二次打开文件用李四登陆：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目139.table |
-- 发布时间：2011/10/18 14:37:00
--
奇怪，狐狸爸爸 你做的 刚才 我测试了一下 确实是对的