主题：泡泡出品 小白入门视频教程 - 第一季 - 订单管理系统

Dim cj As WinForm.ComboBox = e.Form.Controls("厂家")
Dim wlmc As WinForm.ComboBox = e.Form.Controls("物料名称")
Dim wlbh As WinForm.TextBox = e.Form.Controls("物料编号")
Dim xhgg As WinForm.TextBox = e.Form.Controls("型号规格")

Dim flt As String ="供货厂家 = '" & cj.Text & "' and 物料名称 like '*" & wlmc.Text & "*'"
'首先,默认下拉框选择的项目你都有输入值,做成固定查找项目
'这是简化写法,若供货厂家和物料名称你都有空值存在,则参考下面物料编号和型号规格的处理方法

Dim flt1 As String
If wlbh.text = ""
    flt1 = " "    '若物料编号的查找框没有输入内容,则忽略此字段的查找条件
Else
    flt1 = "and 物料编号 like '*" & wlbh.Text & "*' "  '若物料编号的查找框有输入内容,则模糊查找该内容
End If

flt  = flt + flt1   '合成查找条件

Dim flt2 As String
If xhgg.text = ""       '型号规格的处理方式同上
    flt2 = " "
Else
    flt2 = "and 型号规格 like '*" & xhgg.Text & "*' "
End If

flt= flt+flt2  '合成查找条件

Tables("物料信息表").Filter = flt    '对最后合成的条件做筛选

------------------------------------------------------------------------------------------