主题：[求助] 查询（筛选）代码如何设计

窗口界面设计如下，实现条件查询功能

此主题相关图片如下：pic0001.jpg

afterload 事件代码如下：

查询 click事件代码如下:

问题：当【排量】【适用年份】对应的文本列的内容为空值时，搜索到的内容为空白，只有当该两列同时填充数值后，才能实现查询功能到对应的数据列，如图

 查询语句不要这样写，要这样写

 http://www.foxtable.com/help/topics/1058.htm

帮助中这样写道：

1、插入一个组合框，改名为“cmbProduct”，列表项目设为“PD01|PD02|PD03|PD04|PD05”，用于输入要筛选的产品。
2、插入一个组合框，改名为“cmbCustomer”，列表项目设为“CS01|CS02|CS03|CS04|CS05”，用于输入要筛选的客户。
3、插入一个组合框，改名为“cmbEmployee”，列表项目设为“EP01|EP02|EP03|EP04|EP05”，用于输入要筛选的雇员。

请教，列表项目设为“PD01|PD02|PD03|PD04|PD05”，我的该列项目很多，难道要全部在属性的【列表项目】——【自定义项目】中一一列出吗？

并且 我有两个内容是需要进行模糊查找，需要使用textbox控件进行查找  如何进行筛选代码设计呢？

如

Dim cc As WinForm.ComboBox = e.Form.Controls("车厂")
Dim cx As WinForm.ComboBox = e.Form.Controls("车型")
Dim pl As WinForm.TextBox = e.Form.Controls("排量")
Dim nf As WinForm.TextBox = e.Form.Controls("年份")

Dim filter As String = "1=1"
If cc.Text > "" Then
    filter &= " and 车厂 = '" & cc.Text & "'"
End If
If cx.Text > "" Then
    filter &= " and 车型 = '" & cx.Text & "' "
End If
If pl.Text > "" Then
    filter &= " and  排量 like '*" & pl.Text & "*' "
End If
If pl.Text > "" Then
    filter &= " and  适用年份 like '*" & nf.Text & "*'"
End If

Tables("车型资料表").Filter = filter

写错了

Dim cc As WinForm.ComboBox = e.Form.Controls("车厂")
Dim cx As WinForm.ComboBox = e.Form.Controls("车型")
Dim pl As WinForm.TextBox = e.Form.Controls("排量")
Dim nf As WinForm.TextBox = e.Form.Controls("年份")

Dim filter As String = "1=1"
If cc.Text > "" Then
    filter &= " and 车厂 = '" & cc.Text & "'"
End If
If cx.Text > "" Then
    filter &= " and 车型 = '" & cx.Text & "' "
End If
If pl.Text > "" Then|
    filter &= " and  排量 like '*" & pl.Text & "*' "
End If
If nf.Text > "" Then
    filter &= " and  适用年份 like '*" & nf.Text & "*'"
End If

Tables("车型资料表").Filter = filter