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

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

参考：

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

 

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

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

 

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

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