导航栏如何进行权限控制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导航栏如何进行权限控制

共有3163人关注过本帖树形打印复制链接主题：导航栏如何进行权限控制

发哥

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：125 积分：1140 威望：0 精华：0 注册：2012/11/17 9:34:00

Post By：2019/1/5 11:42:00 [显示全部帖子]

您好，老师，按上面的代码，我改了下，但出现错误（未将对象引用设置到对象的实例)，请您帮手检查一下，谢谢。

Dim topic As WinForm.TopicBar = Forms("导航栏").Controls("TopicBar1")

If _Usergroup = "区办" Then

Dim tl1 As WinForm.TopicLink

topic.Pages("用户管理").Visible = False '当用户组为:区办时,这项不显示

topic.Pages("权限管理").Visible = False

Else If _Usergroup = "经理" Then

topic.Pages("用户管理").Visible = True '只有用户组为:经理,才能使用.

End If

发哥

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：125 积分：1140 威望：0 精华：0 注册：2012/11/17 9:34:00

Post By：2019/1/5 14:08:00 [显示全部帖子]

您好，老师，好像是这样的问题：（BUG)

Dim topic As WinForm.TopicBar = Forms("导航栏").Controls("TopicBar1")

If _Usergroup = "区办" Then

Dim tl1 As WinForm.TopicLink

topic.Pages("用户管理").Visible = False '当用户组为:区办时,这项不显示

topic.Pages("权限管理").Visible = False

Else If _Usergroup = "经理XXX" Then (就是把这个“经理XX”,就可以了，实际上没有这个“经理XX”组，如果，改回“经理”就又会出现问题。

topic.Pages("用户管理").Visible = True '只有用户组为:经理,才能使用.

End If

发哥

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：125 积分：1140 威望：0 精华：0 注册：2012/11/17 9:34:00

Post By：2019/1/5 14:40:00 [显示全部帖子]

谢谢您，谢谢您，是我的问题了，重启下软件就好了。

再次感谢您。

主题：导航栏如何进行权限控制