主题：查询窗口设计问题

   再次遇到问题，不过解决问题的过程很爽哟，如下图，我想实现如下的 下拉或输入货运单位可以查询这个单位的运单，可以下拉日期时段可以查出相关时段的运单，我自己试了些方法都不行，也关联了表，还是不行，可能自己还是没读懂知识点，或者理解有错，张冠李戴。请说明一下思路与知识点，要怎么设计才行，要注意些什么，或者参考的地方，一个一个问题解决。有提示才有针对性。谢谢！

        首先，别人的设计是下拉出来就可以直接查询，这个与帮助文件中的“设计查询窗口”不太一样，请问这是怎么实现的？要foxtable要用什么知识点？

        帮助文件中的“设计查询窗口”是看懂了的，但我用在我的这个窗口中就不行，执行了没反应：自己的代码是：

Dim Filter As String
With e.Form.Controls("commudi")
If .value IsNot Nothing Then
     Filter="目的地 = '" & .Value & "'"
    End If
End With

没反应，会不会是控制名引错了？还是其它地方没对。以下是图片

 

此主题相关图片如下：货运查询按发货单位.jpg


此主题相关图片如下：货运查询按时段.jpg


此主题相关图片如下：业务查询自己设计的.jpg

你漏掉一行吧：

 

Dim Filter As String
With e.Form.Controls("commudi")
    If .value IsNot Nothing Then
        Filter="目的地 = '" & .Value & "'"
    End If
End With
Tables("xxx").Filter = filter

请问如上图点击下拉列表项就可以直接查询，不再单独设计查询按钮？有什么办法没？

单价查询代码怎样设计

这个代码写到SelectedIndexChanged中就可以实现列表项目发生变化的时候进行筛选了

Dim Filter As String
With e.Form.Controls("commudi")
    If .value IsNot Nothing Then
        Filter="目的地 = '" & .Value & "'"
    End If
End With
Tables("xxx").Filter = filter

Dim Filter As String
With e.Form.Controls("commudi")
    If .value IsNot Nothing Then
        Filter="目的地 = '" & .Value & "'"
    End If
End With
dataTables("xxx").LoadFilter = filter