参考代码,理解代码后自己扩展
Dim xm = "中建五局土木工程有限公司:大理市中心城区综合管廊ppp项目-"
Dim g As New CrossTableBuilder("统计表1", DataTables("明细根表"))
g.HGroups.AddDef("销售审核_结算日期")
g.HGroups.AddDef("销售名称")
g.VGroups.AddDef("销售标号")
g.Totals.AddDef("销量", "销量")
g.HorizontalTotal = True
g.filter = "销售名称='" & xm & "'"
Dim dt1 As fxDataSource
dt1 = g.BuildDataSource
Dim g1 As New GroupTableBuilder("统计表2", DataTables("泵送明细"))
g1.Groups.AddDef("销售结算日期")
g1.Groups.AddDef("销售工地名称")
g1.Totals.AddDef("砼方量_签单")
g1.Totals.AddDef("结算_销售")
g1.filter = "销售工地名称='" & xm & "'"
Dim dt2 As fxDataSource
dt2 = g1.BuildDataSource
Dim nms1 As String() = {"销售审核_结算日期","销售名称"} '指定连接列
Dim nms2 As String() = {"销售结算日期","销售工地名称"} '指定连接列
dt1.Combine(nms1,dt2,nms2) '将销售统计数据组合到进货统计数据
dt1.Show("统计表1") '显示统计结果