[求助]菜单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，菜单授权，用户分组也能复选多字段授权。

For Each dr As DataRow In DataTables("授权表").Select("',' + Name + ',' like '%," & User.Name & ",%' and RibbonTabs名称 is not null" )

图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png

[此贴子已经被作者于2017/12/5 23:31:24编辑过]

For Each dr As DataRow In DataTables("授权表").Select("',' + Name + ',' like '%," & User.Name & ",%' and ',' + Config + ',' like '%," & User.group & ",%' and RibbonTabs名称 is not null" )

图片点击可在新窗口打开查看此主题相关图片如下：图像 3.png

老师，下面代码不起作用。

For i As Integer = 0 To ribbontabs.count - 1
    RibbonTabs(i).Visible = False
    For j As Integer = 0 To RibbonTabs(i).Groups .count - 1
        RibbonTabs(i).Groups (j).Visible = False
    Next
Next
For Each dr As DataRow In DataTables("授权表").Select("',' + Name + ',' like '%," & User.Name & ",%' and ',' + Config + ',' like '%," & User.group & ",%' and RibbonTabs名称 is not null" )
    If dr.IsNull("Groups名称") Then
        RibbonTabs(dr("RibbonTabs名称")).Visible = dr("可见")
        If dr("可见") = True Then
            For j As Integer = 0 To RibbonTabs(dr("RibbonTabs名称")).Groups .count - 1
                RibbonTabs(dr("RibbonTabs名称")).Groups (j).Visible = True
            Next
        End If
        RibbonTabs(dr("RibbonTabs名称")).Enabled = dr("可用")
    ElseIf dr.IsNull("Items名称") Then
        RibbonTabs(dr("RibbonTabs名称")).Visible = dr("可见")
        RibbonTabs(dr("RibbonTabs名称")).Groups(dr("Groups名称")).Visible = dr("可见")
        RibbonTabs(dr("RibbonTabs名称")).Groups(dr("Groups名称")).Enabled = dr("可用")
    Else
        RibbonTabs(dr("RibbonTabs名称")).Visible = dr("可见")
        RibbonTabs(dr("RibbonTabs名称")).Groups(dr("Groups名称")).Visible = dr("可见")
        RibbonTabs(dr("RibbonTabs名称")).Groups(dr("Groups名称")).Items(dr("Items名称")).Visible = dr("可见")
        RibbonTabs(dr("RibbonTabs名称")).Groups(dr("Groups名称")).Items(dr("Items名称")).Enabled = dr("可用")
    End If
Next

For Each dr As DataRow In DataTables("授权表").Select("',' + Name + ',' like '%," & User.Name & ",%' or ',' + Config + ',' like '%," & User.group & ",%' and RibbonTabs名称 is not null" )

老师，设置下面代码后有我上传剪图的错误。

For Each dr As DataRow In DataTables("授权表").Select("',' + Name + ',' like '%," & User.Name & ",%' or ',' + Config + ',' like '%," & User.group & ",%' and RibbonTabs名称 is not null" )

此主题相关图片如下：图像 3.png

此主题相关图片如下：图像 1.png

[此贴子已经被作者于2017/12/12 9:20:16编辑过]

For Each dr As DataRow In DataTables("授权表").Select("(',' + Name + ',' like '%," & User.Name & ",%' or ',' + Config + ',' like '%," & User.group & ",%') and RibbonTabs名称 is not null" )

主题：[求助]菜单