- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 日期月份问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129930)
-- 发布时间：2019/1/8 23:21:00
-- 日期月份问题
一个表中有“年度”，“月份”列，属性为整数型，如何只提取今天当月向前推12月的数据？？
Dim tb As Table = Tables("窗口1_Table1")
Dim filt As String = "年度 <= " & Format(Date.Today,"yyyy") & "And 年度 >= " & Format(Date.Today.AddDays(-365),"yyyy") & "And 月份 <= " & Format(Date.Today,"MM") & "And 月份 >= " & Format(Date.Today.AddDays(-365),"MM")
tb.Filter = filt
上面代码只提取一个月的数据
此主题相关图片如下：1546183209(1).png
-- 发布时间：2019/1/9 9:26:00
--
[此贴子已经被作者于2019/1/9 17:20:48编辑过]
-- 发布时间：2019/1/9 11:20:00
--
还是不对？
-- 发布时间：2019/1/9 11:27:00
--
Dim d1 As Date = Date.Today
Dim d2 = d1.AddMonths(-12)
Dim filter = "年度 + iif(月份>=10,convert(月份,\'System.String\'),\'0\'+convert(月份,\'System.String\')) >= \'" & Format(d2, "yyyyMM") & "\' and 年度 + iif(月份>=10,convert(月份,\'System.String\'),\'0\'+convert(月份,\'System.String\')) <= \'" & Format(d1, "yyyyMM") & "\'"
msgbox(filter)
Tables("窗口1_table1").Filter = filter
-- 发布时间：2019/1/9 17:36:00
-- 回复：（有点甜）Dim d1 As Date = Date.TodayDim d2 ...
老师这个暂时对我来讲还太复杂了,能否帮我直接写出来啊,晕了
-- 发布时间：2019/1/9 17:45:00
--
以下是引用lfz123在2019/1/9 17:36:00的发言：
老师这个暂时对我来讲还太复杂了,能否帮我直接写出来啊,晕了
老师这个暂时对我来讲还太复杂了,能否帮我直接写出来啊,晕了
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=129961