主题：跨表统计如何满足两列条件

老师好！以下代码是http://www.foxtable.com/webhelp/topics/1472.htm 跨表统计的自动更新示例。  是在统计表内自动更新订单表的数量和金额

但代码只是根据“产品”一列统计，如果要同时满足统计“产品”和“型号”两列（如以下示例统计表格），请问如何改代码？ 我是小白，试着改了很多次没成功，请老师帮帮我，谢谢！

统计表的DataColChanged事件代码设置为：

If e.DataCol.Name = "产品" Then 
    Dim Filter As String = "[产品] = '" & e.NewValue & "'"
    e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)", Filter)
    e.DataRow("金额") = DataTables("订单").Compute("Sum(金额)", Filter) 
End If

订单表的DataColChanged事件代码设置为：

Select Case e.DataCol.Name
    Case "数量","单价","折扣"
        Dim pr As DataRow
        pr = DataTables("统计").Find("产品 = '" & e.DataRow("产品") & "'")
        If pr IsNot Nothing Then
            DataTables("统计").DataCols("产品").RaiseDataColChanged(pr)
        End If
End Select