主题：汇总

我想对订单表生成个汇总表，汇总表样式如附件，下面代码只能根据业务汇总，但是我想分的细一点，根据业务/分组/品牌/年度/月份分，请教代码，谢谢

Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("订单表")
If e.DataCol.Name = "业务" Then
    dr("数量") = dt.Compute("Sum(数量)","[业务] = '" & dr("业务") & "'")
    dr("金额") = dt.Compute("Sum(金额)","[业务] = '" & dr("业务") & "'")
End If