道理都是一样的,看看:
按时段加载数据
我们经常需要加载某个时段的数据,下面列出了各种情况的加载代码给大家参考。
加载指定年份数据
例如加载2011年的订单:
Dim y As Integer = 2011
'指定年份
Dim dt1 As New
Date(y, 1, 1)
Dim dt2 As New
Date(y, 12, 1)
Dim Filter As String
Filter = "日期 >= #"
&
dt1
&
"# And 日期 <= #"
&
dt2
&
"#"
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()
加载指定月份数据
例如加载2011年6月份的订单:
Dim y As Integer = 2011
'指定年份
Dim m As Integer = 6
'指定月份
Dim dt1 As New
Date(y, m, 1)
Dim dt2 As New
Date(y, m, Date.DaysInMonth(2011,6)) '获取该月的最后一天
Dim Filter As String
Filter = "日期 >= #"
&
dt1
&
"# And 日期 <= #"
&
dt2
&
"#"
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()
加载指定季度的数据
例如加载2011年2季度的订单:
Dim y As Integer = 2011
'指定年份
Dim q As Integer = 2
'指定季度
Dim dt1 As New
Date(y, 3 * (q - 1) + 1, 1) '获取该季度的第一天
Dim dt2 As New
Date(y, 3 * q, Date.DaysInMonth(2011,3 * q)) '获取该季度的最后一天
Dim Filter As String
Filter = "日期 >= #"
&
dt1
&
"# And 日期 <= #"
&
dt2
&
"#"
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()