参考下面的代码
Dim dt As DataTable = DataTables("社员消费明细")
Dim Total As Integer
Dim Customers As List(Of String)
Customers = dt.GetValues("数量")
For Each Customer As String In Customers
Total = dt.Compute("Sum(数量)", "[配送日期] >= #" & Date.Today & "# and 社员 = '" & Customer & "'")
Output.Show(Customer & ":" & Total)
Next