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("产品") & "'")