Dim b As New SQLGroupTableBuilder("统计","测试数据")
b.Groups.AddEXp("摊位号","''")
b.Groups.AddEXP("姓名","姓名")
b.Totals.AddDef("费用及工资合计")
b.Build '生成统计表
For Each r As Row In Tables("统计").Rows
r("摊位号") = DataTables("测试数据").GetComboListString("摊位号","姓名 = '" & r("姓名") & "'","_Identify")
Next
MainTable = Tables("统计") '打开生成的统计表