导航栏NavBar权限控制，部分用户组不能看不见部分栏目； - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有一个全局变量，_UserGroup，可以正常使用。

但在导航栏NavBar中不能实现权限控制。部分用户组不能看不见部分栏目；

我在导航窗口的窗口事件 Afterload 中和项目的全局事件的 Afterload 中，都加入的以下代码：

Dim Bar01 As WinForm.NavBar

Select Case _UserGroup

Case "工程管理组","工程管理员组","无线监理组","建设管理员组"

Bar01 = e.Form.Controls("NavBarleft")

Bar01.NavPages(2).Visible = False

Bar01.NavPages(1).Visible = False

End Select

不能实现隐藏1个，2个栏目；如下图红圈中的栏目

请高手帮忙

此主题相关图片如下：qq图片20200409133325.png

[此贴子已经被作者于2020/4/11 17:18:05编辑过]

主题：导航栏NavBar权限控制，部分 用户组 不能看不见部分栏目；