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

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

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

产品	型号	数量	金额
A	m1
A	m2
B	m1
C	m2

统计表的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

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

Select Case e.DataCol.Name     Case "产品","型号"         Dim Filter As String = "[产品] = '" & e.DataRow("产品") & "' and [型号] = '" & e.DataRow("型号") & "'"         e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)", Filter)         e.DataRow("金额") = DataTables("订单").Compute("Sum(金额)", Filter) End Select

谢谢蓝老师！ 根据第一段修改的代码测试了，可以计算统计但需要手动重置列才更新数据

旧数据肯定都要重置一次列。