主题：[求助]跨表统计并自动填列

很简单的：

Dim g As New GroupTableBuilder("统计表1", DataTables("订单表"))
Dim dt As DataTable
g.Groups.AddDef("商品名称")
g.Groups.AddDef("规格")
g.Totals.AddDef("数量")
g.Filter = "[出仓数量] is Null Or [出仓数量] = 0"
dt = g.Build(True)
DataTables("采购计划表").DataRows.Clear()
For Each dr1 As DataRow In dt.DataRows
    Dim dr2 As DataRow = DataTables("采购计划表").AddNew
    dr2("商品名称") = dr1("商品名称")
    dr2("规格") = dr1("规格")
    dr2("计划采购数量") = dr1("数量")
Next

相关知识点：

http://www.foxtable.com/help/topics/1533.htm

http://www.foxtable.com/help/topics/1910.htm

统计很快，是填充慢，可以这样试试：

Dim g As New GroupTableBuilder("统计表1", DataTables("订单表"))
Dim dt As DataTable
g.Groups.AddDef("商品名称")
g.Groups.AddDef("规格")
g.Totals.AddDef("数量")
g.Filter = "[出仓数量] is Null Or [出仓数量] = 0"
dt = g.Build(True)
DataTables("采购计划表").StopRedraw
DataTables("采购计划表").DataRows.Clear()
For Each dr1 As DataRow In dt.DataRows
    Dim dr2 As DataRow = DataTables("采购计划表").AddNew
    dr2("商品名称") = dr1("商品名称")
    dr2("规格") = dr1("规格")
    dr2("计划采购数量") = dr1("数量")
Next
DataTables("采购计划表").ResumeDraw