主题：怎么在同表中对多列数据使用聚合函数

DataColChanged事件

Dim cs() As String = {"A列", "B列", "C列", "D列", "E列", "F列", "G列"}
If array.indexof(cs, e.DataCol.name) >= 0 Then
    Dim max As Double = -999
    Dim x As Double = 0
    For Each c As String In cs
        If e.DataRow(c) > max Then
            max = e.DataRow(c)
        End If
        x += e.DataRow(c)
    Next
   
   
    '求平方差
    Dim s2 As Double = 0
    For Each c As String In cs
        s2 = s2 + (e.DataRow(c) - x) ^ 2 / cs.length
    Next
    Dim s As Double = math.Sqrt(s2)
    e.DataRow("H") = max
    e.DataRow("I") = s
End If