根据表A数据表用模板生成Excel报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

先生成一个临时表绑定窗口表控件，然后生成报表数据，最后根据表控件直接输出即可

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("类别", GetType(String), 32)
dtb.AddDef("规格及数量", GetType(String), 255)
Tables("窗口1_table1").DataSource = dtb.BuildDataSource()

for each lb as string in datatables("表A").getvalues("类别")

dim r as row = Tables("窗口1_table1").addnew

r("类别") = lb

dim s1 as string

for each gg as string in datatables("表A").getvalues("规格","类别='" & lb & "'")

s1 = s1 & "," & gg & "/" & datatables("表A").compute("sum(数量)","类别='" & lb & "' and 规格 ='" & gg & "'")

r("规格及数量") = s1.trim(",")

主题：根据表A数据表用模板生成Excel报表