Dim dr As DataRow = e.DataRowDim dt As DataTable = DataTables("订单")If e.DataCol.Name = "产品" Then dr("数量") = dt.Compute("Sum(数量)","[产品] = '" & dr("产品") & "'") dr("金额") = dt.Compute("Sum(金额)","[产品] = '" & dr("产品") & "'") dr("最新值") = dt.find("[产品] = '" & dr("产品") & "'", "_Identify desc")("金额")End If
http://www.foxtable.com/webhelp/scr/0396.htm