Dim bd1 As New GroupTableBuilder("订单统计表",DataTables("订单表"))

Dim dt1 As fxDataSource

bd1.Groups.AddDef("订单号码")

bd1.Groups.AddDef("客户名称")

dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("订单明细统计表",DataTables("订单明细表"))

Dim dt2 As fxDataSource

bd2.Groups.AddDef("订单号码")

bd2.Groups.AddDef("料号")

bd2.Groups.AddDef("数量")

dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("出库计划统计表",DataTables("出库计划表"))

Dim dt3 As fxDataSource

bd3.Groups.AddDef("订单号码")

bd3.Groups.AddDef("料号")

bd3.Groups.AddDef("计划_出库日期")

bd3.Groups.AddDef("计划_出库数量")

dt3 = bd3.BuildDataSource()

Dim bd4 As New GroupTableBuilder("料号管理统计表",DataTables("料号管理"))

Dim dt4 As fxDataSource

bd4.Groups.AddDef("料号")

bd4.Groups.AddDef("客户名称")

bd4.Groups.AddDef("机种")

bd4.Groups.AddDef("材质")

bd4.Groups.AddDef("规格")

dt4 = bd4.BuildDataSource()

Dim Cols1() As String = {"订单号码","料号"}

Dim Cols2() As String = {"料号","客户名称"}

dt2.Combine("订单号码",dt1,"订单号码")

dt2.Combine(Cols1,dt3,Cols1)

dt4.combine(Cols2,dt2,Cols2)

dt4.show("排程统计表")