主题：分组统计的问题

Dim t As Table = CurrentTable
Dim vals As List(Of String) = t.DataTable.GetValues("产品","产品 Is Not Null")
For Each val As String In vals
    Dim arys As List(Of String()) = t.DataTable.GetValues("产品|客户|雇员","产品 = '" & val & "'")
    Output.Show(Val & "  " & arys.Count)
Next

订单表里正常，但在楼主的表中有个错误，不知什么原因。