求助：如何利用代码生成当前月每天的经营额消费人数人均消费的数值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

试试这段代码：

Dim jb As New SQLJoinTableBuilder("查询表1","消费信息")

jb.AddCols("订单编号","就餐时间")

jb.AddExp("数量","就餐人数")

jb.AddExp("分类","'就餐人数'")

Dim jb1 As New SQLJoinTableBuilder("查询表1","消费信息")

jb1.AddTable("消费信息","订单编号","消费明细","订单编号")

jb1.AddCols("{消费信息}.订单编号","就餐时间",True)

jb1.AddExp("数量","Sum(累计消费)")

jb1.AddExp("分类","'消费总额'")

Dim jb2 As New SQLJoinTableBuilder("查询表1","消费信息")

jb2.AddTable("消费信息","订单编号","消费明细","订单编号")

jb2.AddCols("{消费信息}.订单编号","就餐时间",True)

jb2.AddExp("数量","Sum(累计消费/就餐人数)")

jb2.AddExp("分类","'人均消费'")

jb.Union(jb1,True)

jb.Union(jb2,True)

Dim g As New CrossTableBuilder("统计表2",jb.BuildSql)

g.HGroups.AddDef("订单编号")

g.HGroups.AddDef("分类")

g.VGroups.AddDef("就餐时间", "{0}月")

g.VGroups.AddDef("就餐时间", DateGroupEnum.Day, "{0}日")

g.Totals.AddDef("数量", "数量")

g.Build()

MainTable = Tables("统计表2")

主题：求助：如何利用代码生成当前月每天的经营额 消费人数 人均消费的数值