主题：[求助]如何将窗口的组合框和按钮功能移到菜单上（已解决）

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

 

 

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

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

谢谢狐爸老师的指教，看了任务二的代码，还是没有明白组合框的列表项目如何实现，要在菜单的组合框实现年月列的不重复列表项目，代码应该如何写？请指教，谢谢！！

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

自己顶一下。

谢谢狐爸老师的指教，我在代码中加了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

谢谢狐爸老师的热心指教，问题得到圆满解决，再次衷心感谢！！

狐爸老师，菜单的组合框默认是空白的，如何达到像窗口的组合框一样，将指定的列表项目填充到菜单的组合框中，谢谢指教！！

 

 

窗口的组合框填充代码如下：

'填充ComboBox1
Dim dmc As WinForm.ComboBox
dmc = Forms("订单").Controls("ComboBox1")
dmc.SelectedIndex = 0

菜单组合框填充代码出错，如何修改，请各位老师指教！！

 

'填充菜单组合框
Dim ny As RibbonMenu.RibbonItem
ny = RibbonTabs("订单汇总").Groups("订单汇总").Items("年月")
ny.SelectedIndex = 0

 

 

此主题相关图片如下：tt.png

谢谢狐爸老师的回复，指定值能够实现，如：

 

RibbonTabs("订单汇总")("订单汇总")("年月").Text = "2012-03"

 

问题是要填充已生成的列表项目指定值，用什么方法来实现？谢谢指教！！

谢谢狐爸老师，问题解决了，再次衷心感谢！！