- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 查询窗口设计问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20831)
-- 发布时间：2012/6/20 22:08:00
-- 查询窗口设计问题
再次遇到问题，不过解决问题的过程很爽哟，如下图，我想实现如下的 下拉或输入货运单位可以查询这个单位的运单，可以下拉日期时段可以查出相关时段的运单，我自己试了些方法都不行，也关联了表，还是不行，可能自己还是没读懂知识点，或者理解有错，张冠李戴。请说明一下思路与知识点，要怎么设计才行，要注意些什么，或者参考的地方，一个一个问题解决。有提示才有针对性。谢谢！
首先，别人的设计是下拉出来就可以直接查询，这个与帮助文件中的“设计查询窗口”不太一样，请问这是怎么实现的？要foxtable要用什么知识点？
帮助文件中的“设计查询窗口”是看懂了的，但我用在我的这个窗口中就不行，执行了没反应：自己的代码是：
Dim Filter As String
With e.Form.Controls("commudi")
If .value IsNot Nothing Then
Filter="目的地 = \'" & .Value & "\'"
End If
End With
没反应，会不会是控制名引错了？还是其它地方没对。以下是图片
此主题相关图片如下：货运查询按发货单位.jpg
此主题相关图片如下：货运查询按时段.jpg
此主题相关图片如下：业务查询自己设计的.jpg
-- 发布时间：2012/6/21 7:09:00
--
你漏掉一行吧：
Dim Filter As String
With e.Form.Controls("commudi")
If .value IsNot Nothing Then
Filter="目的地 = \'" & .Value & "\'"
End If
End With
Tables("xxx").Filter = filter
-- 发布时间：2012/6/21 12:21:00
--
你漏掉一行吧：
Dim Filter As String
With e.Form.Controls("commudi")
If .value IsNot Nothing Then
Filter="目的地 = \'" & .Value & "\'"
End If
End With
Tables("xxx").Filter = filter
-- 发布时间：2012/6/21 12:23:00
-- 谢谢！
请问如上图点击下拉列表项就可以直接查询，不再单独设计查询按钮？有什么办法没？
-- 发布时间：2013/5/23 11:09:00
--
单价查询代码怎样设计
-- 发布时间：2013/5/23 11:13:00
--
这个代码写到SelectedIndexChanged中就可以实现列表项目发生变化的时候进行筛选了
-- 发布时间：2014/4/2 16:22:00
-- 求助 SQLSelect 查询代码
Dim Filter As String
With e.Form.Controls("commudi")
If .value IsNot Nothing Then
Filter="目的地 = \'" & .Value & "\'"
End If
End With
Tables("xxx").Filter = filter
-- 发布时间：2014/4/2 16:28:00
--
Dim Filter As String
With e.Form.Controls("commudi")
If .value IsNot Nothing Then
Filter="目的地 = \'" & .Value & "\'"
End If
End With
dataTables("xxx").LoadFilter = filter