以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于窗口中进行查询功能设置的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70040)
--  作者：我来看看
--  发布时间：2015/6/15 9:34:00
--  [求助]关于窗口中进行查询功能设置的问题

我在窗口中制作了一个查询功能，查询按钮代码如下。不知道哪里写错了，为什么点击查询后没有按时间进行筛选呢？？（我的是SQL数据库）

 

Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= \'" & .Value & "\'"
    End If
End With
If Filter > "" Then
    Tables("表A").Filter = Filter
End If
--  作者：Bin
--  发布时间：2015/6/15 9:38:00
--  
Filter = Filter & "日期 <= \'" & .Value & "\'"

日期要用#号

Filter = Filter & "日期 <= #" & .Value & "#"
--  作者：我来看看
--  发布时间：2015/6/15 16:31:00
--  
还是不对，点击查询按钮还是没有反应
--  作者：大红袍
--  发布时间：2015/6/15 17:06:00
--  

Dim Filter As String = ""
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With

Tables("表A").Filter = Filter
--  作者：我来看看
--  发布时间：2015/6/16 15:38:00
--  

上述代码复制进去后，还是没有反应？？？？？？

 

我的是SQL数据库的
--  作者：大红袍
--  发布时间：2015/6/16 16:09:00
--  

 代码，没什么问题。

 

 你表里面原本有数据吗？你上面的代码，是对已经加载的数据筛选而已。
--  作者：我来看看
--  发布时间：2015/6/16 16:21:00
--  
有数据的啊
--  作者：Bin
--  发布时间：2015/6/16 16:27:00
--  
上例子看看吧
--  作者：Bin
--  发布时间：2015/6/16 16:28:00
--  
你是数据库里有数据,还是所有数据都加载进来了啊?

要加载进来才能进行筛选哦.


如果你要的是加载.把FIlter改为 LOadFIlter



SQL数据源的话.时间要用单引号