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

老师好，可以直接把RibbonTabs名称赋值给组合框1 标题赋值给文本框1、Groups名称赋值给 CheckedComboBox1 标题文本框2、Items名称赋值给 CheckedComboBox2 标题赋值给文本框3，这样就不需要过渡表了。谢谢

[此贴子已经被作者于2017/11/29 6:32:04编辑过]

以下是引用江南小镇在2017/11/29 6:31:00的发言：
老师好，可以直接把RibbonTabs名称赋值给组合框1 标题赋值给文本框1、Groups名称赋值给 CheckedComboBox1 标题文本框2、Items名称赋值给 CheckedComboBox2 标题赋值给文本框3，这样就不需要过渡表了。谢谢

[此贴子已经被作者于2017/11/29 6:32:04编辑过]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:菜单赋值.table

老师，自己搞不好。

老师，希望能显示标题。

图片点击可在新窗口打开查看此主题相关图片如下：2017-11-29 20 28 26.png

老师太感谢了，继续劳烦老师，隐藏行，如果表A第一列单元格有数据则全部隐藏。

此主题相关图片如下：2017-11-29 20 28 26.png

[此贴子已经被作者于2017/11/29 22:27:19编辑过]

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

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编辑过]

图片点击可在新窗口打开查看此主题相关图片如下：图像 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" )

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

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

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

主题：[求助]菜单