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

现在你的问题是什么？哪里不会？具体例子发上来。

具体项目上传上来。

跟上传图片一样上传你的项目。

以下是引用白国栋在2017/6/21 10:52:00的发言：
表A统计完了之后，统计表B时候没有清屏，所以第二个价表格就统计不出来。

你切换表的时候 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

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