Dim dt1 As DataTable = DataTables("MRP报表")
Dim dtb As New DataTableBuilder("mrp统计表")
dtb.AddDef("成品代码", Gettype(String), 16)
dtb.AddDef("成品名称及规格", Gettype(String), 16)
Dim lbs As List(of String) = dt1.GetValues("子料类别")
For Each lb As String In lbs
dtb.AddDef(lb & "_子料代码", Gettype(String))
dtb.AddDef(lb & "_子料名称", Gettype(String))
dtb.AddDef(lb & "_库存", Gettype(String))
dtb.AddDef(lb & "_在途采购", Gettype(String))
Next
dtb.Build()
Dim dt2 As Table = Tables("mrp统计表")
For Each dm As String() In dt1.GetValues("成品代码|成品名称及规格")
Dim nr As Row = dt2.AddNew
nr("成品代码") = dm(0)
nr("成品名称及规格") = dm(1)
For Each lbei As String In dt1.GetValues("子料类别","成品代码='" & dm(0) & "' And 成品名称及规格='" & dm(1) & "'")
Dim dr As DataRow = dt1.Find("成品代码='" & dm(0) & "' And 成品名称及规格='" & dm(1) & "' and 子料类别='" & lbei & "'","子料库存数量")
If dr IsNot Nothing
nr(lbei & "_子料代码") = dr("子料代码")
nr(lbei & "_子料名称") = dr("子料名称及规格")
nr(lbei & "_库存") = dr("子料库存数量")
nr(lbei & "_在途采购") = dr("子料在途采购")
End If
Next
Next
MainTable= dt2
加好友 
发短信
Post By：2017/7/11 14:27:00 [显示全部帖子]
