主题：[求助]代码执行统计结果不对？

为什么“理科有效分”统计结果正确，“文科有效分”统计结果不对？不知错在哪儿？请指教，谢谢！

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

点击浏览该文件:复件 高中期末成绩统计程序.rar

 有个地方错了，需要区分文理的。自己改改。

 Dim c5 As Double = DataTables("成绩库").Find(" " & tj & " = '" & c1 & "' And 部别 = '高文'")(tj1)
 Dim c6 As Double = DataTables("成绩库").Find(" " & tj & " = '" & c2 & "' And 部别 = '高文'")(tj1)
 Dim c7 As Double = DataTables("成绩库").Find(" " & tj & " = '" & c3 & "' And 部别 = '高文'")(tj1)
 Dim c8 As Double = DataTables("成绩库").Find(" " & tj & " = '" & c4 & "' And 部别 = '高文'")(tj1)

谢谢！“标准差”也应该分文理科吧，但我不知怎样修改代码，请指教！

　　　　Dim p As Integer = Tables("成绩库").Cols("" & dr("科目") & "").Index
            Dim rs As Integer = Tables("成绩库").Rows.Count -1
            dr("标准差") = Tables("成绩库").Aggregate(AggregateEnum.Std, 0, p, rs, p)

 标准差看看这样行不行吧。不行的话，就只能自己计算标准差了。

Tables("成绩库").Filter = " 部别 = '高理'"
            Dim p As Integer = Tables("成绩库").Cols("" & dr("科目") & "").Index
            Dim rs As Integer = Tables("成绩库").Rows.Count -1
            dr("标准差") = Tables("成绩库").Aggregate(AggregateEnum.Std, 0, p, rs, p)
Tables("成绩库").Filter = ""

 建议在代码的顶部加入筛选条件，在代码的尾部还原筛选条件。

搞定，谢谢！