Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("供应商订货明细表"))
b.Groups.AddDef("供应商名称","供应商名称")
b.Groups.AddDef("日期",DateGroupEnum.Year,"年")
b.Groups.AddDef("日期",DateGroupEnum.Month,"月")
b.Groups.AddDef("日期",DateGroupEnum.Day,"日")
b.Totals.AddDef("订货单号",AggregateEnum.Count,"订单数") '根据客户列来统计记录数,也就是订单数
b.filter = "供应商名称 = '" & cr("供应商名称") & "'"
dt = b.Build(true)
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
trv1.BuildTree(dt, "供应商名称|年|月|日")