主题：交叉统计日期

Dim d1 As Date = e.form.Controls("DateTimePicker1").value

Dim g As New CrossTableBuilder("已收销售", DataTables("已审销售"))
g.HGroups.AddDef("客户全称")
g.VGroups.AddDef("会计年度")
g.Totals.AddDef("结算金额", "结算金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter = "日期 >= d1"  

g.FromServer = True
g.Build()
MainTable = Tables("已收销售")

'Tables("已审销售").Sort = "合计 DESC"