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

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

 

 

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

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

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

 

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

 

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

 

 

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

直接设置他的text属性为指定的值，例如“2012-04”， 而不是slectctedindex属性

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

 

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

 

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

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

    .Text= Vals(0)
End With

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