主题：求助如何编写聚合函数中的最小，最大，平均值

参考

http://www.foxtable.com/webhelp/scr/0545.htm

Select Case e.DataCol.Name
    Case "首件1_线宽","首件2_线宽","尾件1_线宽","尾件2_线宽","重件1_线宽","重件2_线宽"
        Dim arr(5) As Decimal
        arr(0) = val(e.DataRow("首件1_线宽"))
        arr(1) = val(e.DataRow("首件2_线宽"))
        arr(2) = val(e.DataRow("尾件1_线宽"))
        arr(3) = val(e.DataRow("尾件2_线宽"))
        arr(4) = val(e.DataRow("重件1_线宽"))
        arr(5) = val(e.DataRow("重件2_线宽"))
        Array.Sort(arr)
        e.DataRow("线路宽度Min") = arr(0)
        e.DataRow("线路宽度Max") = arr(5)
        Dim sum As Decimal
        For Each d As Decimal In arr
            sum += d
        Next
        Dim avg As Decimal = sum/arr.length
        e.DataRow("线路宽度AVG值") = avg
        sum = 0
        For Each d As Decimal In arr
            sum += Math.Pow(d-avg,2)
        Next
        e.DataRow("线路宽度标准差") = Math.Pow(sum/arr.length,0.5)

End Select

Dim r As Row = Tables("表A").Current
Dim arr(5) As Decimal
arr(0) = val(r("首件1_线宽"))
arr(1) = val(r("首件2_线宽"))
arr(2) = val(r("尾件1_线宽"))
arr(3) = val(r("尾件2_线宽"))
arr(4) = val(r("重件1_线宽"))
arr(5) = val(r("重件2_线宽"))
Array.Sort(arr)
r("线路宽度Min") = arr(0)
r("线路宽度Max") = arr(5)
Dim sum As Decimal
For Each d As Decimal In arr
    sum += d
Next
Dim avg As Decimal = sum/arr.length
r("线路宽度AVG值") = avg
sum = 0
For Each d As Decimal In arr
    sum += Math.Pow(d-avg,2)
Next
r("线路宽度标准差") = Math.Pow(sum/arr.length,0.5)

直接写

e.DataRow("列名") = arr(5) - arr(0)

写在最后

e.DataRow("R值") = arr(5) - arr(0)

r1("R值") = arr(5) - arr(0)

指什么？