主题：混合计算统计的代码要怎么写？

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

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

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

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

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

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