主题：请教查询代码

Dim ch As WinForm.TextBox = e.Form.Controls("车号")
Dim gg As WinForm.TextBox = e.Form.Controls("规格")
Dim shdw As WinForm.TextBox = e.Form.Controls("收货单位")
Dim dz As WinForm.TextBox = e.Form.Controls("到站")
Tables("钢厂发货明细").Filter = "车号 Like '*"& ch.Text &"*'And 规格 Like'*"& gg.Text & "*'and 收货单位 Like'*" & shdw.Text & "*'and 到站 Like'*" & dz.Text & "*'"

查询出错请指正。先谢谢！

还是一样查询没数据，去掉收货单位和到站的代码就可以查询，是什么原因？

是内部表，找到原因了是收货单位字段中没有数据，四个条件一起如果其中一个条件中没数据查询就不显示数据，是这样的吗？四个条件中可以任意选择查询其中几查询吗？请教代码。谢谢！

Dim Filter As String
With e.Form.Controls("车号")
    If .Value IsNot Nothing Then
        Filter = "车号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("规格")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "规格 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("到站")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "到站 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("收货单位")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "收货单位 = '" & .Value & "'"
    End If
End With

If Filter > "" Then
    Tables("钢厂发货明细").Filter = Filter
End If

不能模糊查询，要输完整入，输入2个条件查询不了，请指教，谢谢！