Dear 各位高手，

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

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

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

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

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

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

参考

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

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

编辑错误：“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值