Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样将日期列的年月日放入目录树作筛选，可以展开和收缩


  共有2968人关注过本帖树形打印复制链接

主题：怎样将日期列的年月日放入目录树作筛选，可以展开和收缩
帅哥哟，离线，有人找我吗？
fvcfox
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：505 积分：4697 威望：0 精华：0 注册：2020/5/7 13:05:00 		怎样将日期列的年月日放入目录树作筛选，可以展开和收缩  发帖心情 Post By：2021/3/5 8:16:00 [只看该作者]

如题

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106199 积分：540118 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/5 9:28:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
fvcfox
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：505 积分：4697 威望：0 精华：0 注册：2020/5/7 13:05:00 		  发帖心情 Post By：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106199 积分：540118 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/5 11:03:00 [只看该作者]

        Case 2
            d1 = New Date(Year, Month, day) '取得该月的第一天
            Filter = "NO20 = #" & d1 & "#" 
    End Select
 回到顶部
帅哥哟，离线，有人找我吗？
fvcfox
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：505 积分：4697 威望：0 精华：0 注册：2020/5/7 13:05:00 		  发帖心情 Post By：2021/3/5 11:25:00 [只看该作者]

基本可以实现了，但是我用的日期列为DateTime型，0时0分的可以显示，有具体时分的就不能显示，还要怎么改

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106199 积分：540118 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/5 11:31:00 [只看该作者]

     Case 2
            d1 = New Date(Year, Month, day)
            Filter = "NO20 >= #" & d1 & "# and NO20 < #" & d1.adddays(1) & "#" 
    End Select
 回到顶部
帅哥哟，离线，有人找我吗？
fvcfox
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：505 积分：4697 威望：0 精华：0 注册：2020/5/7 13:05:00 		  发帖心情 Post By：2021/3/5 12:01:00 [只看该作者]

我加红色代码有误，是希望排队作废为真的那些记录
...

... From {订单} Where 作废 = False"

...

[此贴子已经被作者于2021/3/5 12:01:28编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106199 积分：540118 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/5 12:02:00 [只看该作者]

提示什么错误？能不能给出完整代码做参考？解决问题靠脑补么！

 回到顶部
客人(59.33.*.*)
 小大  9楼


  发帖心情 Post By：2021/3/6 22:54:00 [只看该作者]

知道了，是False要加单引号

 回到顶部
帅哥哟，离线，有人找我吗？
fvcfox
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：505 积分：4697 威望：0 精华：0 注册：2020/5/7 13:05:00 		  发帖心情 Post By：2021/3/8 8:40:00 [只看该作者]

如下代码，怎样使目录树的年是降序？
不知什么问题不能粘代码，只是用图片

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20210308083937.png
图片点击可在新窗口打开查看
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询