以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  下面代码无统计结果。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140948)

--  作者：shixu --  发布时间：2019/9/18 9:07:00 --  下面代码无统计结果。 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, "小票数") g.Filter = Filter g.Subtotal = True g.Build() MainTable = Tables("统计表1")

--  作者：有点蓝 --  发布时间：2019/9/18 9:15:00 --   Dim g As New CrossTableBuilder("统计表1", DataTables("加油记录"))

--  作者：shixu --  发布时间：2019/9/18 9:25:00 --   问题仍然存在

--  作者：有点蓝 --  发布时间：2019/9/18 10:07:00 --   请上传实例说明