主题：如何用代码实现这种统计？

一

Dim i As Integer
For Each r As Row In Tables("订单").Rows
    If r("产品") = "PD01" AndAlso r("客户") = "CS03" Then
        i + = 1
    End If
Next
MessageBox.Show(i)

二
Tables("订单").Filter = "产品 = 'PD01' And 客户 = 'CS03'"
MessageBox.Show(Tables("订单").Rows.Count)