主题：菜单栏功能组里的筛选

你切换表的时候 currentTableChanged、mainTableChanged 事件，你写代码处理不就好了？

Vars("SysUpdatePrintInfo") = True

'任务二
With RibbonTabs("功能区1")("功能组1")("HGroup")
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsString Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With
With RibbonTabs("功能区1")("功能组1")("VGroup")
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsString Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With
With RibbonTabs("功能区1")("功能组1")("TotalOn")
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsNumeric Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With

Vars("SysUpdatePrintInfo") = True

'任务二
With RibbonTabs("功能区1")("功能组1")("HGroup")
    .Text = ""
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsString Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With
With RibbonTabs("功能区1")("功能组1")("VGroup")
    .Text = ""
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsString Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With
With RibbonTabs("功能区1")("功能组1")("TotalOn")
    .Text = ""
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        If c.IsNumeric Then
            Dim b As New RibbonMenu.Button(c.Name)
            b.Text = c.Name '按钮的标题也等于列名称
            .Items.Add(b)
        End If
    Next
End With