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

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

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

如

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