Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b.Groups.AddDef("客户PO")
b.Totals.AddDef("客户PO",AggregateEnum.Count,"数量")
Dim dt As DataTable = b.Build(true) '生成统计表
For Each dr As DataRow In dt.DataRows
Dim cnt As Integer = dr("数量")
Dim idx As Integer = 1
For Each dr2 As DataRow In DataTables("订单").Select("客户PO='" & dr("客户PO") & "'")
dr2("目标生产单号") = dr2("现有生产单号") & "-" & idx & "/" & cnt
idx += 1
Next
Next
[此贴子已经被作者于2019/4/23 20:49:28编辑过]