筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有4243人关注过本帖树形打印复制链接主题：筛选

wqb1102

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

筛选

Post By：2013/5/20 12:58:00 [只看该作者]

在帮助中：窗口中的动态列表项目

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

设计的步骤为：

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

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

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

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：2013/5/20 16:17:00 [只看该作者]

谢谢

主题：筛选