以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33529)

--  作者:wqb1102
--  发布时间:2013/5/20 12:58:00
--  筛选
在帮助中:窗口中的动态列表项目

希望第一个组合框能够自动列出所有型号供选择,而第二个组合框能够列出所选型号的全部规格供选择,同样第三个组合框能够列出所选规格的全部颜色供选择。

设计的步骤为:

1、在窗口的AfterLoad事件中加入代码:

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = 
DataTables("表A").GetComboListString("型号")

例中组合框列出所有型号供选择,但如果型号太多时,如何设置组合框可以模糊选择?上述代码如何修改?


--  作者:Bin
--  发布时间:2013/5/20 14:22:00
--  

TextChanged 事件

e.sender.Items.Clear

e.sender.ComboList = DataTables("表A").GetComboListString("型号","型号 like \'*" & e.sender.Text & "*\'")

e.sender.OpenDropDown



--  作者:wqb1102
--  发布时间:2013/5/20 16:17:00
--  
谢谢