主题：[求助] 水平汇总不同产品的数量

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("客户", Gettype(String), 16)
Dim prds As List(of String) = DataTables("订单").GetValues("产品")
For Each prd As String In prds
    dtb.AddDef(prd, Gettype(Double))
Next
dtb.Build()
For Each cus As String In DataTables("订单").GetValues("客户")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("客户") = cus
    For Each prd As String In prds
        dr(prd) = DataTables("订单").Compute("Sum(数量)","客户 = '" & cus & "' And [产品] = '" & prd & "'")
    Next
Next
MainTable= Tables("统计")