请看一下下面代码，不能统计出“统计表1” - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tn,ty As Integer

Dim Filter As String

tn=2018

ty=8

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("加油记录"))

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")

主题：请看一下下面代码，不能统计出“统计表1”