Dim Customers As List(Of String) Dim Total As
Integer Customers = DataTables("订单").GetUniqueValues("", "客户编号") For
Each Customer As
String
In Customers Total = DataTables("订单").Compute("Sum(数量)", "[客户编号] = '" & Customer & "'") Output.Show(Customer & ":" & Total) Next