加载明细记录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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, "供应商名称|年|月|日")

主题：加载明细记录