Dim tn,ty As Integer
Dim Filter As String
tn=2018
ty=9
Dim ts As Date = New Date(tn,ty,1) '第一天
Dim td As Date = New Date(tn,ty,Date.DaysInMonth(tn,ty)) '最后一天
Output.Show(ts)
Output.Show(td)
'Filter ="[日期] > #2019/8/31# And [日期] < #2019/10/1 # And [作废]=false"
Filter ="[日期] >= #" & ts & "# And [日期] <= #" & td & "# And [作废]=false"
Output.Show(Filter)
Dim g As New CrossTableBuilder("统计表1", DataTables("加油记录"), Filter) ', "[日期] > #2019/8/31# and [日期] < #2019/10/1 # and [作废]=false")
g.HGroups.AddDef("加油站")
g.HGroups.AddDef("油品")
g.HGroups.AddDef("领油人", "", "加油人")
g.VGroups.AddDef("项目")
g.Totals.AddDef("数量", "用油合计")
g.Totals.AddDef("数量", AggregateEnum.Count, "小piao数")
g.Filter = Filter
g.Subtotal = True
g.Build()
MainTable = Tables("统计表1")
加好友 
发短信
Post By：2019/9/18 9:07:00 [只看该作者]
