Foxtable(狐表)用户栏目专家坐堂 → 分组统计,交叉统计菜单里为什么没有标准差


  共有2406人关注过本帖树形打印复制链接

主题:分组统计,交叉统计菜单里为什么没有标准差

帅哥哟,离线,有人找我吗?
foxtable_New
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:182 积分:1806 威望:0 精华:0 注册:2014/9/28 12:07:00
分组统计,交叉统计菜单里为什么没有标准差  发帖心情 Post By:2015/6/15 16:02:00 [只看该作者]

 在对数据列统计时,分组统计,交叉统计菜单里为什么没有标准差?只有累计量、平均值、记录数、最大值、最小值
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/15 16:24:00 [只看该作者]

 测试了一下,就是没有的,如果要是实现标准差等等计算,需要生成表以后重新计算。

 回到顶部
帅哥哟,离线,有人找我吗?
foxtable_New
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:182 积分:1806 威望:0 精华:0 注册:2014/9/28 12:07:00
  发帖心情 Post By:2015/6/15 16:31:00 [只看该作者]

 需要生成表以后重新计算,什么意思,不明白

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/6/15 16:31:00 [只看该作者]

生成这个表之后,在基于这个表进行计算

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/15 16:52:00 [只看该作者]

以下是引用foxtable_New在2015/6/15 16:31:00的发言:
 需要生成表以后重新计算,什么意思,不明白

 

 

参考代码

 

Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))
b.HGroups.AddDef("客户") '添加客户列用于水平分组
b.VGroups.AddDef("产品","产品_{0}") '添加产品列用于垂直分组,并设置了Pattern参数
b.Totals.AddDef("数量") '添加数量列用于统计
b.Filter="客户 Is not null"

b.Build '生成统计表

For Each r As Row In Tables("统计表1").Rows
    For Each c As Col In Tables("统计表1").Cols
        If c.Name Like "数量*" Then
            Dim drs As List(Of DataRow) = DataTables("订单").Select(b.Filter & " and 客户 = '" & r("客户") & "' and 产品 = '" & c.Caption.Replace("产品_","") & "'")

            '求平均值
            Dim x As Double
            For i As Integer = 0 To drs.Count - 1
                x = x + drs(i)("数量") / drs.count
            Next
            '求平方差
            Dim s2 As Double
            For i As Integer = 0 To drs.Count - 1
                s2 = s2 + (drs(i)("数量") - x) ^ 2 / drs.count
            Next
            Dim s As Double = math.Sqrt(s2)
            r(c.Name) = s
        End If
    Next
Next

MainTable = Tables("统计表1") '打开生成的统计表

 


 回到顶部