- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 筛选树的一个小问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72160)
-- 发布时间：2015/7/24 14:29:00
-- 筛选树的一个小问题
我发现内置筛选树的“年”、“季”、“月”、“周”都是时间段，而“日”却是时间点，所以当日时间点是零点零分可筛选出来，当日其余时间点就筛选不出来，
请教大神知道在哪里可以改成时间段？
此主题相关图片如下：无标题.png
-- 发布时间：2015/7/24 14:52:00
--
狐表默认的日期筛选精确到日的时候是等于，你可以先按周做目录树，到日期那里再用 ”晚于“或者“早于”来筛选。或者自定义筛选树。
-- 发布时间：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
-- 发布时间：2015/7/24 16:33:00
--
谢谢版主！搞定！