主题：菜单里的组合框的下拉列表如何做

也可以看看这个

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

给你写了一段代码供参考

菜单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

菜单年份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 y As String = RibbonTabs("功能区1").Groups("功能组1").Items("年份").Text
Dim m As String = RibbonTabs("功能区1").Groups("功能组1").Items("月份").Text
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("每月订单"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("车型") '根据型号分组
bd1.Totals.AddDef("数量","计划") '对数量进行统计
bd1.Filter = "订单年份 = '" & y & "' and 订单月份 = '" & m & "'"

dt1 = bd1.BuildDataSource()

……