主题：列表项目

 只要你的应付应收录入表有空白的内容，最后就有空白的内容。

 你选择以后，必须点击查询，才会查询到你要的数据啊。

 

 如果是查询后仍然是这样，就是你查询代码写错了。

 

 请上传例子说明

 不知所云，例子发上来吧，直接说明哪个控件要实现什么功能，不要就说一点点，别人不知道怎么回答你。

按钮代码

 

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 & "'"
    End If
End With
If Filter > "" Then
    Tables("应付应收录入").Filter = Filter
End If

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