http://www.foxtable.com/help/topics/1070.htm

http://www.foxtable.com/help/topics/1141.htm

也可以看看这个

http://www.foxtable.com/help/topics/1134.htm

感谢二位回复 

这几个帮助页面  我周末都看了N遍了，但不会学以致用啊

给你写了一段代码供参考

菜单CurrentTableChanged事件

If CurrentTable.name = "每日产量" Then
    With RibbonTabs("功能区1").Groups("功能组1").Items("年份")
        .Items.Clear
        Dim Values() As String = DataTables("每日产量").GetComboListString("产量年份").split("|")
        For i As Integer = 0 To Values.Length - 1
            Dim b As New RibbonMenu.Button(Values(i))
            b.Text = Values(i)
            .Items.Add(b)
        Next
    End With
End If

感谢CZY的代码 年份可以下拉选择了 这个代码我想破脑袋也写不出的

能顺便帮我把月份的代码写了不？（要能和年份联动的，2012年只录入到8月份，就只能下拉显示到8月份）

菜单年份TextChanged事件

If e.ComboBox.Text <> "" Then
    With RibbonTabs("功能区1").Groups("功能组1").Items("月份")
        .Items.Clear
        Dim Values() As String = DataTables("每日产量").GetComboListString("产量月份","产量年份 = \'" & e.ComboBox.Text & "\'").split("|")
        For i As Integer = 0 To Values.Length - 1
            Dim b As New RibbonMenu.Button(Values(i))
            b.Text = Values(i)
            .Items.Add(b)
        Next
    End With
End If

太帅了！

我再追问一下吧

我窗体中的“统计”按钮里的代码我写好了 但没有用到菜单里年月份的值来做筛选，能帮我稍稍改一下吗？

主要是加个筛选条件，注释请无视，我复制帮助里的

以下是源代码：

----------------------------------------------------------------------------------------

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("每月订单"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("车型") \'根据型号分组
bd1.Totals.AddDef("数量","计划") \'对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("每日产量"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("车型") \'根据型号分组
bd2.Totals.AddDef("数量","完成") \'对数量进行统计
dt2 = bd2.BuildDataSource()

--------------------------------------------------------------------------------------