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

Dear 各位高手，

     请帮忙告知如何编写聚合函数的最小，最大，平均值，R值，样品标准差值的函数【使用按键来执行】

 

追加附件及需求编写函数说明

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:如何编写聚合参数代码.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar

参考

 

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

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb

老大，我现在的版本不能开启你刚刚编写的代码，请将代码复制贴到下面窗口界面

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

老大，昨天那一段代码复制的命令窗口时出现：

编辑错误：“DataCol 不是 Control EventArgs的成员

错误代码：Selecr Case e.Data.Name

请问怎么修改？

谢谢

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)

你好，下午那个代码可以计算出标准差和平均值，但是不能计算出R值