以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  列表项目  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21291)
--  作者：wilson
--  发布时间：2012/7/8 16:11:00
--  列表项目

我想把 产品信息表 的 产品型号 作为菜单的组合框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("产品型号")
--  作者：jianjingmaoyi
--  发布时间：2012/7/8 16:33:00
--  
用文本框处理?
--  作者：mr725
--  发布时间：2012/7/8 17:41:00
--  

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
--  作者：wilson
--  发布时间：2012/7/8 18:06:00
--  
问题已解决，非常感谢！
--  作者：wilson
--  发布时间：2012/7/8 18:22:00
--  
老兄啊，您给的菜单列表项目，是不是没有筛选功能的啊
--  作者：jianjingmaoyi
--  发布时间：2012/7/8 18:37:00
--  
你只要列表,没说筛选功能
--  作者：wilson
--  发布时间：2012/7/8 19:01:00
--  
如何实现筛选功能
--  作者：mr725
--  发布时间：2012/7/8 19:14:00
--  

在textchanged事件中设置代码吧。

--  作者：wilson
--  发布时间：2012/7/8 20:05:00
--  

筛选代码我无法解决

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

谢谢！
--  作者：mr725
--  发布时间：2012/7/8 20:13:00
--  
CurrentTable.filter = "[ColName] = \'" & RibbonTabs("筛选")("筛选")("组合框1").Text & "\'"