主题：如何根据可视化授权，显示不同的菜单？

我做了一个目录树形式的授权，那如何实现：根据目录树授权 授权给不同的用户 授权给用户什么权限 然后该用户登录时 就显示已授权的任务栏菜单 没授权的就不显示。请狐狸爸爸帮我看一下。详情请见附件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:赵龙信息管理系统(开发).rar

狐狸爸爸 在吗？这个问题困扰了我好几天了，能帮我看一下吗？

狐狸爸爸 在吗？

能给出一段代码吗？

 

狐狸爸爸 能给出 一段代码吗？

 

狐狸爸爸 能给出 一段代码吗？

我买了开发版 发给别人看 别人都打不开 所以只有狐狸爸爸 你帮我看一下了

我在窗口的AfterLoad事件中加了下面的这段代码：

For Each tb As RibbonMenu.Tab In  RibbonTabs
    Dim dr As DataRow
    dr = DataTables("授权").find("分组 ='" & tb.Name & "'")
    If dr IsNot Nothing Then
        tb.Visible =True
    End If
Next

没有任何效果啊。狐狸爸爸 帮我看一下嘛

我在窗口的AfterLoad事件中加了下面的这段代码： For Each tb As RibbonMenu.Tab In  RibbonTabs     Dim dr As DataRow     dr = DataTables("授权").find("分组 ='" & tb.Name & "'")     If dr IsNot Nothing Then         tb.Visible =True     End If Next 没有任何效果啊。狐狸爸爸 帮我看一下嘛

我知道 这样 只能显示某个人的啊。可我的是目录树形式的授权，那如何实现：根据目录树授权 授权给不同的用户 授权给用户什么权限 然后该用户登录时 就显示已授权的任务栏菜单 没授权的就不显示啊。请狐狸爸爸帮我看一下。

在窗口的AfterLoad事件 的代码 又该怎么写呢？