- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎样将日期列的年月日放入目录树作筛选，可以展开和收缩 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161080)
-- 发布时间：2021/3/5 8:16:00
-- 怎样将日期列的年月日放入目录树作筛选，可以展开和收缩
如题
-- 发布时间：2021/3/5 9:28:00
--
参考：http://www.foxtable.com/webhelp/topics/0917.htm
-- 发布时间：2021/3/5 10:57:00
--
年月已能实现，本人不怎么会改再按日筛选，请老师改一改红色
Dim Filter As String = ""
If e.node.Name <> "显示所有行" Then
Dim d1 As Date
Dim d2 As Date
Dim d3 As Date
Dim Year As Integer = e.Node.DataRow("年")
Dim Month As Integer = e.Node.DataRow("月")
Dim day As String = e.Node.DataRow("日")
Select Case e.Node.Level
Case 0
d1 = New Date(Year,1,1) \'取得该年的第一天
d2 = new Date(Year,12,31) \'取得该年的最后一天
Filter = "NO20 >= #" & d1 & "# And NO20 <= #" & d2 & "#"
Case 1
d1 = New Date(Year, Month, 1) \'取得该月的第一天
d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
Filter = "NO20 >= #" & d1 & "# And NO20 <= #" & d2 & "#"
Case 2
d1 = New Date(Year, Month, 1) \'取得该月的第一天
d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
d3=e.Node.Text
\'Filter = "NO20 >= #" & d1 & "# And NO20 <= #" & d2 & "# And NO20 = #" & e.Node.Text & "#"
Filter = "NO20 = #" & d3 & "#"
End Select
End If
Tables("订单").Filter = Filter
-- 发布时间：2021/3/5 11:03:00
--
Case 2
d1 = New Date(Year, Month, day) \'取得该月的第一天
Filter = "NO20 = #" & d1 & "#"
End Select
-- 发布时间：2021/3/5 11:25:00
--
基本可以实现了，但是我用的日期列为DateTime型，0时0分的可以显示，有具体时分的就不能显示，还要怎么改
-- 发布时间：2021/3/5 11:31:00
--
Case 2
d1 = New Date(Year, Month, day)
Filter = "NO20 >= #" & d1 & "# and NO20 < #" & d1.adddays(1) & "#"
End Select
-- 发布时间：2021/3/5 12:01:00
--
我加红色代码有误，是希望排队作废为真的那些记录
...
... From {订单} Where 作废 = False"
...
[此贴子已经被作者于2021/3/5 12:01:28编辑过]
-- 发布时间：2021/3/5 12:02:00
--
提示什么错误？能不能给出完整代码做参考？解决问题靠脑补么！
-- 发布时间：2021/3/6 22:54:00
--
知道了，是False要加单引号
-- 发布时间：2021/3/8 8:40:00
--
如下代码，怎样使目录树的年是降序？
不知什么问题不能粘代码，只是用图片
此主题相关图片如下：qq截图20210308083937.png