以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  筛选树的一个小问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72160)

--  作者:yiwente
--  发布时间:2015/7/24 14:29:00
--  筛选树的一个小问题

我发现内置筛选树的“年”、“季”、“月”、“周”都是时间段,而“日”却是时间点,所以当日时间点是零点零分可筛选出来,当日其余时间点就筛选不出来,

请教大神知道在哪里可以改成时间段?


图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2015/7/24 14:52:00
--  
狐表默认的日期筛选精确到日的时候是等于,你可以先按周做目录树,到日期那里再用 ”晚于“或者“早于”来筛选。或者自定义筛选树。
--  作者:blsu33
--  发布时间:2015/7/24 14:56:00
--  
可否内置筛选树加一个日 
这样 目录树不就有下级

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150724145601.jpg
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2015/7/24 15:04:00
--  

 筛选目录树有Bug,对于有时间的日期,无法筛选。

 

 必须特殊处理一下,在BeforeFilter加代码

 

Dim ary() As String = e.Filter.Split(" ")
Dim str As String = ""
For i As Integer = 0 To ary.length - 1
    If ary(i) = "[第五列]" Then
        If ary(i+1) = "=" Then
            Dim s As String = ary(i+2).replace("#","")
            str &= ary(i) & " >= #" & s & "# and " & ary(i) & " <= #" & s & " 23:59:59# "
            i += 2
        ElseIf ary(i+1) = "<=" Then
            Dim s As String = ary(i+2).replace("#","")
            str &= ary(i) & " <= #" & s & " 23:59:59# "
            i += 2
        Else
            str &= ary(i) & " "
        End If
    Else
        str &= ary(i) & " "
    End If
Next
msgbox(str)
e.Filter = str


--  作者:yiwente
--  发布时间:2015/7/24 16:33:00
--  
谢谢版主!搞定!