[求助]代码执行统计结果不对？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码执行统计结果不对？

共有8419人关注过本帖树形打印复制链接主题：[求助]代码执行统计结果不对？

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：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)

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：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 = ""

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/6 16:22:00 [显示全部帖子]

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

[此贴子已经被作者于2013-2-6 16:22:43编辑过]

下一主题 >> << 上一主题

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