Foxtable(狐表)用户栏目专家坐堂 → [求助]筛选树统计数据日期问题


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

主题:[求助]筛选树统计数据日期问题

帅哥哟,离线,有人找我吗?
Bin
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/24 16:31:00 [只看该作者]

Select Case e.Node.Level
        Case 0
            d1 = New Date(Year,1,1) '取得该年的第一天
            d2 = new Date(Year,12,31) '取得该年的最后一天
            Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
        Case 1
            d1 = New Date(Year, Month, 1) '取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
            Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
        Case 2
            d1 = New Date(Year, Month, day) 
            Filter = "日期 >= #" & d1 & "# And 日期 < #" & d1.AddDays(1) & "#"
        Case 3
            d1 = New Date(Year, Month, day) 
            Filter = "日期 >= #" & d1 & "# And 日期 < #" & d1.AddDays(1) & "# And 产品 = '" & Product & "'"    
End Select


 回到顶部
总数 11 上一页 1 2