Dim b2 As New sqlGroupTableBuilder("统计表2","表D")
Dim dt2 As fxDataSource
b2.AddTable("表D", "部门名称", "表B", "部门名称")
b2.Groups.AddDef("{表D}.部门名称")
b2.Groups.AddDef("费用项目")
b2.Totals.AddDef("同期费用")
b2.Totals.AddDef("同期销售")
dt2 = b2.BuildDataSource()
Dim b4 As New sqlGroupTableBuilder("统计表4","表C")
Dim dt4 As fxDataSource
b4.AddTable("表C", "部门名称", "表A", "部门名称")
b4.Groups.AddDef("{表C}.部门名称")
b4.Groups.AddDef("费用项目")
b4.Totals.AddDef("本期费用")
b4.Totals.AddDef("本期销售")
dt4 = b4.BuildDataSource()
Dim nms As String() = {"部门名称","费用项目"} '指定连接列
dt2.Combine(nms,dt4,nms) '将销售统计数据组合到进货统计数据
dt2.Show("统计表1") '显示统计结果