主题：多列条件下跨表统计自动更新

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

Select Case e.DataCol.Name
   
    Case "数量"
   
        Dim Filter As String = "[产品] = '" & e.DataRow("产品") & "' and [客户] = '" & e.datarow("客户") & "'"
        DataTables("统计").DataCols("产品").RaiseDataColChanged(filter）
     
End Select