参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=113583&skin=0
代码如下
Select Case e.DataCol.name
Case "品牌产品规格", "单价"
Dim filter As String = "品牌产品规格 = '" & e.DataRow("品牌产品规格") & "'"
Dim sum1 As Double = e.DataTable.Compute("max(单价)", filter)
e.DataTable.ReplaceFor("历史最高单价",sum1,filter)
Dim sum2 As Double = e.DataTable.Compute("min(单价)", filter)
e.DataTable.ReplaceFor("历史最低单价",sum2,filter)
Dim sum3 As Double = e.DataTable.Compute("avg(单价)", filter)
e.DataTable.ReplaceFor("历史平均单价",sum3,filter)
End Select
http://www.foxtable.com/webhelp/scr/0548.htm