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("排程统计表")