主题：[求助]关于查询的代码

Dim gys As String = e.Form.Controls("供应商").text

Dim clmc As String = e.Form.Controls("材料名称").text
Dim clbm As String = e.Form.Controls("材料编码").text
Dim Filter As String =""

if gys > ""

    Filter = "供货厂家 = '" & gys & "'"

end if

if clmc > ""

    if  Filter = ""

         Filter = "材料名称 like '*" & clmc & "*'"

    else

         Filter = " and 材料名称 like '*" & clmc & "*'"

    end if

end if

if clbm > ""

    if Filter = ""

        Filter = "材料编码 like '*" & clbm & "*'"

    else

        Filter = " and 材料编码 like '*" & clbm & "*'"

    end if

end if

Tables("大宗原材料").Filter= Filter

任意输入1～N个条件呢？

代码还可以简写，对新手来说理解就困难多了，所以，写的是楼主好理解的！