以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询窗口设计问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20831)

--  作者:kmzb56
--  发布时间: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


--  作者:kmzb56
--  发布时间:2012/6/21 12:21:00
--  
以下是引用狐狸爸爸在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

 
谢谢!请问如上图下拉列表项点击就可以直接查询的功能怎么实现?


--  作者:kmzb56
--  发布时间:2012/6/21 12:23:00
--  谢谢!
请问如上图点击下拉列表项就可以直接查询,不再单独设计查询按钮?有什么办法没?
--  作者:林文生
--  发布时间:2013/5/23 11:09:00
--  

单价查询代码怎样设计


--  作者:夕然
--  发布时间:2013/5/23 11:13:00
--  
这个代码写到SelectedIndexChanged中就可以实现列表项目发生变化的时候进行筛选了
--  作者:jygyyl
--  发布时间: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

以上代码能够实现已加载数据的查询筛选,外部数据表如何用SQLSelect查询,代码如何写?求老师指点!

--  作者:Bin
--  发布时间: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
dataTables("xxx").Load