Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", Gettype(String), 32)
dtb.AddDef("单位", Gettype(String), 32)
dtb.AddDef("型号", Gettype(String), 32)
dtb.AddDef("颜色", Gettype(String), 32)
dtb.AddDef("产地", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Double))
dtb.Build()
For Each s As String() In DataTables("明细").GetValues("产品|单位")
Dim r As Row = Tables("统计").AddNew
r("产品") = s(0)
r("单位") = s(1)
r("型号") = DataTables("明细").GetComboListString("型号","产品='" & s(0) & "' and 单位='" & s(1) & "'").replace("|",",")
r("颜色") = DataTables("明细").GetComboListString("颜色","产品='" & s(0) & "' and 单位='" & s(1) & "'").replace("|",",")
r("产地") = DataTables("明细").GetComboListString("产地","产品='" & s(0) & "' and 单位='" & s(1) & "'").replace("|",",")
r("数量”) =
Next
MainTable= Tables("统计")
加好友 
发短信
Post By：2022/1/29 9:31:00 [只看该作者]
