dim d as date = datatables("订单").sqlcompute("max(日期)")
Dim y As Integer = d.year '指定年份
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Dim b As New SQLGroupTableBuilder("统计表1","订单")
b.Filter = Filter
……