以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]用于筛选的组合框下拉列表,保存设置问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75104)

--  作者:ehomecd
--  发布时间:2015/9/27 9:01:00
--  [讨论]用于筛选的组合框下拉列表,保存设置问题?
[讨论]用于筛选的组合框下拉列表,保存设置问题?

组合框用户模糊筛选,希望组合框能保存每次模糊筛选输入的值,形成下拉列表。
因为是模糊查询,所以每次输入的字和词不是某列的内容,而且只是核心字和词。


图片点击可在新窗口打开查看此主题相关图片如下:2015年9月27日.png
图片点击可在新窗口打开查看


valuechanged::
Dim spmc As WinForm.ComboBox = e.Form.Controls("商品名称")
Tables("宝藏商品选择_宝藏商品").Filter = " 商品名称 like \'%" & spmc.value & "%\'"
Dim Li As new List(of String)
If li.Contains(spmc.value) = False Then
li.Add(spmc.value)
End If
SaveConfigValue("prd", li)

enter::
e.Sender.ComboList = GetConfigValue("prd","")

错误:
图片点击可在新窗口打开查看此主题相关图片如下:2015年9月27日2.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2015/9/27 9:02:25编辑过]

--  作者:大红袍
--  发布时间:2015/9/28 9:57:00
--  

Dim spmc As WinForm.ComboBox = e.sender
Tables("宝藏商品选择_宝藏商品").Filter = " 商品名称 like \'%" & spmc.value & "%\'"
Dim Li = spmc.Items
If li.Contains(spmc.value) = False Then
    li.Add(spmc.value)
End If
SaveConfigValue("prd", spmc.ComboList)