主题：两表之间的汇总

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("订单号", Gettype(String), 32)
dtb.AddDef("订单数", Gettype(Integer), 32)
dtb.AddDef("加工数", Gettype(Integer))
dtb.AddDef("结存数", Gettype(Double),"订单数 - 加工数")
dtb.Build()
Dim lst As List(of String) = DataTables("导线订单").GetUniqueValues("","订单号")
Dim dr As DataRow
For Each dd As String In lst
    dr = DataTables("统计").AddNew()
    dr("订单号")  = dd
    dr("订单数")  = DataTables("导线订单").Compute("Sum(订单数)","订单号 = '" & dd & "'")
    dr("加工数")  = DataTables("订单加工").Compute("Sum(加工数)","订单号 = '" & dd & "'")
Next

呵呵，这个我故意留给你做练习的。

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("订单号", Gettype(String), 32)
dtb.AddDef("订单数", Gettype(Integer), 32)
dtb.AddDef("加工数", Gettype(Integer))
dtb.AddDef("结存数", Gettype(Double),"订单数 - 加工数")
dtb.Build()
Dim lst As List(of String) = DataTables("导线订单").GetUniqueValues("","订单号")
Dim dr As DataRow
For Each dd As String In lst
    dr = DataTables("统计").AddNew()
    dr("订单号")  = dd
    dr("订单数")  = DataTables("导线订单").Compute("Sum(订单数)","订单号 = '" & dd & "'")
    dr("加工数")  = DataTables("订单加工").Compute("Sum(加工数)","订单号 = '" & dd & "'")
Next
dr = DataTables("统计").AddNew()
dr("订单号")  = "合计"
dr("订单数")  = DataTables("导线订单").Compute("Sum(订单数)")
dr("加工数")  = DataTables("订单加工").Compute("Sum(加工数)")

上面有好几个规格，都改了吗？

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("规格", Gettype(String), 32)
dtb.AddDef("订单数", Gettype(Integer), 32)
dtb.AddDef("加工数", Gettype(Integer))
dtb.AddDef("结存数", Gettype(Double),"订单数 - 加工数")
dtb.Build()
Dim lst As List(of String) = DataTables("导线订单").GetUniqueValues("","规格")
Dim dr As DataRow
For Each dd As String In lst
    dr = DataTables("统计").AddNew()
    dr("规格")  = dd
    dr("订单数")  = DataTables("导线订单").Compute("Sum(订单数)","规格 = '" & dd & "'")
    dr("加工数")  = DataTables("订单加工").Compute("Sum(加工数)","规格 = '" & dd & "'")
Next
dr = DataTables("统计").AddNew()
dr("规格")  = "合计"
dr("订单数")  = DataTables("导线订单").Compute("Sum(订单数)")
dr("加工数")  = DataTables("订单加工").Compute("Sum(加工数)")

 

 

不同的问题，请单独发帖提问，不要总是跟帖。