打算将窗口的组合框和按钮功能移到菜单上，现在“全部载入刷新”按钮的功能已经实现，但是组合框的列表项目及其他几个按钮代码还无法搞定，请各位老师帮助指教，谢谢！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:菜单模式.rar

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

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

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

万变不离其宗，在命令窗口执行：

Dim cmd As New SQLCommand
Dim ct As DataTable
cmd.C  \'外部数据源
cmd.CommandText = "SELECT DISTINCT(年月) As 年月 From {订单}"
ct = cmd.ExecuteReader()
Dim vals As List(of String) = ct.GetUniqueValues("","年月")
Dim cmb As RibbonMenu.ComboBox = RibbonTabs("订单汇总").Groups("订单汇总").Items("年月")
For Each val As String In vals
    Dim btn As new RibbonMenu.Button(val)
    btn.text = val
    cmb.Items.Add(btn)
Next

谢谢狐爸老师的指教，我将此段代码放在CurrentTableChanged项目事件中，每切换一次，就增加一组重复的数据，如何在执行代码前，将原来的数据清空，还望指教，谢谢！！

自己顶一下。

参考：

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

谢谢狐爸老师的指教，我在代码中加了With...End With语句，实现清除原有项目的目的。

另外，此列表项目如何实现倒序，还请老师指教，再次衷心感谢狐爸老师的热心帮助！！

Dim cmd As New SQLCommand
Dim ct As DataTable
cmd.C  \'外部数据源
cmd.CommandText = "SELECT DISTINCT(年月) As 年月 From {订单}"
ct = cmd.ExecuteReader()
Dim vals As List(of String) = ct.GetUniqueValues("","年月")
Dim cmb As RibbonMenu.ComboBox = RibbonTabs("订单汇总").Groups("订单汇总").Items("年月")
With RibbonTabs("订单汇总")("订单汇总")("年月")
    .Items.Clear \'清除原有项目
    For Each val As String In vals
        Dim btn As new RibbonMenu.Button(val)
        btn.text = val
        cmb.Items.Add(btn)
    Next
End With

Dim cmd As New SQLCommand
Dim ct As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT(年月) As 年月 From {订单}"
ct = cmd.ExecuteReader()
Dim vals() As String = ct.GetComboListString("年月","","年月 DESC").Split("|")
Dim cmb As RibbonMenu.ComboBox = RibbonTabs("订单汇总").Groups("订单汇总").Items("年月")
With RibbonTabs("订单汇总")("订单汇总")("年月")
    .Items.Clear \'清除原有项目
    For Each val As String In vals
        Dim btn As new RibbonMenu.Button(val)
        btn.text = val
        cmb.Items.Add(btn)
    Next
End With