请教各位 想在一个代码里体现多种运算的代码怎么写 作为一个开发小白深知以下代码错误很多 脑瓜不够用转不过来 还请多多包涵 

目前，检测份数、最大值、最小值已统计出。其他代码还未成立

Dim t As Table = Tables("PPRV")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

t.GroupAboveData = False

t.TreeVisible = False

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "送检单位"

g.Caption = "{0}"

t.SubtotalGroups.Add(g)

t.Subtotal()

Dim r As Row

For i As Integer = 0 To t.Rows.Count(True) - 1

    r = t.Rows(i,True)

    If r.IsGroup \'如果是分组行

        Dim f As String = "送检单位 = \'" & r("送检单位") & "\'"

        Dim v As String = " 检测份数:" & t.Compute("Count(送检单位)",f)

        v = v & " 阳性数量(≥50):" & t.Compute("Sum(结果) = \'P\'",f )   这里是想统计结果列的 ≥50的数据的数量

        v = v & " 阳性数量(≥80):" & t.Compute("Sum([结果]>=80)",f)  这里是想统计结果列的 ≥80的数据的数量

        v = v & " 阴性数量:" & t.Compute("Sum([判定]=\'N\')",f) 这里是想统计判定列等于字符N的数量

        v = v & " 最大值:" & t.Compute("Max(结果)",f)

        v = v & " 最小值:" & t.Compute("Min(结果)",f)

        v = v & " 平均值:" & t.Compute("Average(结果)",f) 这里想统计结果列里面数据 排除掉50以下的数据的 其他数据平均值

        v = v & " 标准偏差:" & t.Compute("Std(结果)",f)   这里想统计结果列里面数据 排除掉50以下的数据的 其他数据标准偏差

        v = v & " 离散度:" & t.Compute("([标准偏差]/[平均值])",f)  这里想作一个除法运算 用上面统计出的平均值与标准偏差来计算离散度 并且显示为百分数

        r("送检单位") = "送检单位:" & r("送检单位") & v

    End If

Next

比如

        v = v & " 阳性数量(≥50):" & t.Compute("Sum(结果)",f & " and 结果>=50")   这里是想统计结果列的 ≥50的数据的数量

        v = v & " 阳性数量(≥80):" & t.Compute("Sum(结果)",f & " and 结果>=80")  这里是想统计结果列的 ≥80的数据的数量

看懂帮助文档 http://www.foxtable.com/webhelp/scr/1647.htm

老师 还要帮忙你看一下我的代码划黄线的那部分有什么问题 就是统计不出来呀 

还有就是如果想在加一行同样的统计行继续跟在后面 怎么写

Dim t As Table = Tables("检测报告")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

t.GroupAboveData = False

t.TreeVisible = False

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "生长阶段"

g.Caption = "{0}"

t.SubtotalGroups.Add(g)

t.Subtotal()

Dim r As Row

For i As Integer = 0 To t.Rows.Count(True) - 1

    r = t.Rows(i,True)

    If r.IsGroup \'如果是分组行

        Dim f As String = "生长阶段 = \'" & r("生长阶段") & "\'"

        Dim v As String = " 检测份数:" & t.Compute("Count(实验室编号)",f)

        v = v & " 阳性数量(≥0.4):" & t.Compute("Count(检测项目_蓝耳PRRS_结果)","检测项目_蓝耳PRRS_结果 > =0.4")

        v = v & " 阳性数量(≥2.5):" & t.Compute("Count(检测项目_蓝耳PRRS_结果)","检测项目_蓝耳PRRS_结果 > =2.5")

        v = v & " 阴性数量:" & t.Compute("Count(检测项目_蓝耳PRRS_判定)","检测项目_蓝耳PRRS_判定=\'N\'")

        v = v & " 最大值:" & t.Compute("Max(检测项目_蓝耳PRRS_结果)",f)

        v = v & " 最小值:" & t.Compute("Min(检测项目_蓝耳PRRS_结果)",f)

        v = v & " 阳性平均值:" & t.Compute("Average(检测项目_蓝耳PRRS_结果)","检测项目_蓝耳PRRS_结果 > =0.4")

        v = v & " 阳性标准偏差:" & t.Compute("Std(检测项目_蓝耳PRRS_结果)","检测项目_蓝耳PRRS_结果> =0.4")

        v = v & " 离散度CV%:" & t.Computer("阳性标准偏差/阳性平均值"),"00.00%")

        r("生长阶段") = "生长阶段:" & r("生长阶段") & v

    End If

Next

标准偏差要这样计算

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

不会做的话，具体实例发上来测试

Dim t As Table = Tables("表A")
Dim filter = t.filter
Dim dic As new Dictionary(Of String ,Double)
For Each bj As String In t.DataTable.GetValues("班级", t.filter)
    t.filter = iif(filter>"", filter & " And ", "") & "班级=\'" & bj & "\' and 语文_分数 >= 60"
    dic.add(bj & "平均", t.Aggregate(AggregateEnum.Average, 0, t.Cols("语文_分数").index, t.Rows.count-1, t.Cols("语文_分数").index))
    dic.add(bj & "偏差", t.Aggregate(AggregateEnum.Std, 0, t.Cols("语文_分数").index, t.Rows.count-1, t.Cols("语文_分数").index))
Next
t.filter = filter
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "班级"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()

Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup \'如果是分组行
        Dim f As String = "班级 = \'" & r("班级") & "\'"
        Dim 语文及格数量 = t.Compute("Count(语文_判定)","语文_判定=\'P\' and " & f)
        Dim 班级人数 =  t.Compute("Count(班级)",f)
        Dim 语文优秀数量 = t.Compute("Count(语文_分数)","语文_分数> =90 and " & f)
        Dim v As String = " 班级人数:" & 班级人数
        v = v & " 语文及格数量(≥60):" & 语文及格数量
        v = v & " 语文良好数量(≥80):" & t.Compute("Count(语文_分数)","语文_分数> =80 and " & f)
        v = v & " 语文优秀数量(≥90):" & 语文优秀数量
        v = v & " 语文及格率:" & 语文及格数量/班级人数
        v = v & " 语文优秀率:" & 语文优秀数量/班级人数
        v = v & " 语文最大值:" & t.Compute("Max(语文_分数)",f)
        v = v & " 语文最小值:" & t.Compute("Min(语文_分数)",f)
        v = v & " 语文及格分数平均值:" & dic(r("班级") & ("平均"))
        v = v & " 语文及格分数标准偏差:" & dic(r("班级") & ("偏差"))
        v = v & " 语文及格分数离散度:" & dic(r("班级") & ("偏差")) / dic(r("班级") & ("平均"))
       
        r("班级") = "班级:" & r("班级") & v
    End If
Next