主题：列表项目

我想把 产品信息表 的 产品型号 作为菜单的组合框NO31的列表项目.

我用以下代码在菜单事件里调试出错，不知道如何解决，求助

谢谢
Dim no31 As RibbonMenu.TextBox = RibbonTabs("产品开发").Groups("产品查询").Items("no31")
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "SELECT DISTINCT 产品型号 From {产品信息表}"
dt1 = cmd1.ExecuteReader
no31.ComboList = dt1.GetComboListString("产品型号")

用文本框处理?

Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "SELECT DISTINCT 产品型号 From {产品信息表}"
dt1 = cmd1.ExecuteReader

Dim ss() As String =dt1.GetComboListString("产品型号").split("|")
With RibbonTabs("产品开发")("产品查询")("no31")
    .Items.Clear 

    For Each s As String In ss
        Dim b As New RibbonMenu.Button(s)
        b.Text = s
        .Items.Add(b)
    Next
End With

问题已解决，非常感谢！

老兄啊，您给的菜单列表项目，是不是没有筛选功能的啊

你只要列表,没说筛选功能

如何实现筛选功能

在textchanged事件中设置代码吧。

筛选代码我无法解决

老大可以提供一下代码吗？

谢谢！

CurrentTable.filter = "[ColName] = '" & RibbonTabs("筛选")("筛选")("组合框1").Text & "'"