- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码执行统计结果不对？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28638)
-- 发布时间：2013/2/6 11:22:00
-- [求助]代码执行统计结果不对？
为什么“理科有效分”统计结果正确，“文科有效分”统计结果不对？不知错在哪儿？请指教，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复件 高中期末成绩统计程序.rar |
-- 发布时间：2013/2/6 12:30:00
--
有个地方错了，需要区分文理的。自己改改。
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)
-- 发布时间：2013/2/6 14:23:00
-- [求助]“标准差”也应该分文理科
谢谢！“标准差”也应该分文理科吧，但我不知怎样修改代码，请指教！
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)
[此贴子已经被作者于2013-2-6 15:39:03编辑过]
-- 发布时间：2013/2/6 16:15:00
--
标准差看看这样行不行吧。不行的话，就只能自己计算标准差了。
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 = ""
-- 发布时间：2013/2/6 16:22:00
--
建议在代码的顶部加入筛选条件，在代码的尾部还原筛选条件。
[此贴子已经被作者于2013-2-6 16:22:43编辑过]
-- 发布时间：2013/2/6 17:01:00
--
搞定，谢谢！