Dim Filter As String
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
Dim ch As WinForm.ComboBox = e.Form.Controls("车号")
Dim cy As WinForm.ComboBox = e.Form.Controls("承运")
Dim ty As WinForm.ComboBox = e.Form.Controls("托运")
Dim sh As WinForm.ComboBox = e.Form.Controls("审核开票")
Dim hwmc As WinForm.ComboBox = e.Form.Controls("货物名称")
Dim hd As WinForm.ComboBox = e.Form.Controls("回单")
Dim xj As WinForm.ComboBox = e.Form.Controls("现金")
Dim qd As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim zd As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Tables("应付应收录入").Filter = "托运单位 = \'" & ty.Text & "\' And 车号 = \'" & ch.Text & "\' And 承运单位 = \'" & cy.Text & "\'"

按照一个条件或同时几个条件都能查询，最后一句过滤条件的代码应该怎么写？

查询按钮给你做了例子，但是你的数据表里面有部分没有你要查的条件列，给你做了部分查询，后面的楼主慢慢完善！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子1.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子1.table

想要的效果是，按照一个条件能查询，多个条件一起也能同时查询，包括日期在内，好像没有达到效果，老师帮着看一下