主题：列表项目

Dim Filter As String = "1=1"
With e.Form.Controls("托运")
    If .Value IsNot Nothing Then
        Filter &= " and 托运单位 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("回单")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 回单 = '" & .Value & "'"

    Else

        Filter = Filter & " and (回单 is Null Or 回单 = '')"
    End If
End With
If Filter > "" Then
    Tables("应付应收录入").Filter = Filter
End If