主题：[求助]模糊查询

Dim cpth As String = e.Form.Controls("产品图号").Value
Dim zwmc As String = e.Form.Controls("中文名称").Value
Dim zwcl As String = e.Form.Controls("中文材料").Value
Dim zwgg As String = e.Form.Controls("中文规格").Value
Dim Filter As String
If cpth <> ""
    Filter = "产品图号 like '*" & cpth & "*'"
End If
If zwmc <> ""
    If Filter = ""
        Filter = "中文名称 like '*" & zwmc & "*'"
    Else
        Filter = Filter & " and 中文名称 Like '*" & zwmc & "*'"
    End If
End If
If zwcl <> ""
    If Filter = ""
        Filter = "中文材料 like '*" & zwcl & "*'"
    Else
        Filter = Filter & " and 中文材料 Like '*" & zwcl & "*'"
    End If
End If
If zwgg <> ""
    If Filter = ""
        Filter = "中文规格 like '*" & zwgg & "*'"
    Else
        Filter = Filter & " and 中文规格 Like '*" & zwgg & "*'"
    End If
End If
Tables("产品").Filter =Filter