主题：[求助]在加入计算“标准差”时总是报错，是代码错了吗？

谢谢！已经搞出来了。我是在

Dim sum As Double = Tables("总分有效分").Aggregate(AggregateEnum.Sum, 0, q, 5, q)
For i As Integer = 0 To 5
     Tables("总分有效分").Rows(i)("平均分之和") = sum
Next　　　

的后面加上
For Each bm As DataTable In DataTables
    For Each dr As DataRow In DataTables(bm.name).DataRows
        If bm.name <> "成绩库"
        dr("重点A级有效分") = ( dr("重点A级分数线") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
        dr("重点B级有效分") = ( dr("重点B级分数线5") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
        dr("本科有效分") = ( dr("本科线") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
        dr("专科有效分") = ( dr("专科线") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
        End If
    Next

再次谢谢指教。