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

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

太帅了！