主题：[求助]请问如何用更简洁的代码计算最大值 、最小值、平均值？

 写到datacolchanged事件

If e.DataCol.Name <> "最小值" AndAlso e.DataCol.Name <> "最大值" AndAlso e.DataCol.Name <> "平均值" Then
    Dim t As Table = Tables(e.DataTable.Name)
    e.DataRow("最小值") = t.Aggregate(AggregateEnum.min, t.Current.Index, 1, t.Current.Index, 5)
    e.DataRow("最大值") = t.Aggregate(AggregateEnum.max, t.Current.Index, 1, t.Current.Index, 5)
    e.DataRow("平均值") = t.Aggregate(AggregateEnum.Average, t.Current.Index, 1, t.Current.Index, 5)
End If

http://www.foxtable.com/help/topics/0545.htm