[求助]获取频数（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]获取频数（已解决）

共有2155人关注过本帖树形打印复制链接主题：[求助]获取频数（已解决）

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

[求助]获取频数（已解决） 发帖心情

Post By：2016/4/19 16:38:00 [只看该作者]

聚合函数获取工效的频数，运行后值均为0，错在哪里?请各位老师指教，谢谢！！

Dim dr3,dr4 As DataRow

Dim zjz As Double = min - zj

For i = 0 To fzs + 1

dr3 = DataTables("正态分布").DataRows(i) '当前行

dr4 = DataTables("正态分布").DataRows(i + 1) '下一行

dr3("分组序号") = i + 1

dr3("分组") = zjz

zjz = zjz + zj

dr3("频率") = Tables("正态分布").Compute("Count(工效)", "工效 >= '" & dr3("分组") & "' And 工效 < '" & dr4("分组") & "'")

此主题相关图片如下：捕获13.png

[此贴子已经被作者于2016/4/19 17:17:04编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/19 16:41:00 [只看该作者]

试试

dr3("频率") = Tables("正态分布").Compute("Count(日期)", "工效 >= '" & dr3("分组") & "' And 工效 < '" & dr4("分组") & "'")

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2016/4/19 16:53:00 [只看该作者]

谢谢大红袍老师的指教，但是还是一样，上传案例，请指教，谢谢！！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目10.rar

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/19 17:09:00 [只看该作者]

Dim dr3,dr4 As Row
Dim zjz As Double = min - zj
For i = 0 To fzs + 1
    dr3 = Tables("正态分布").Rows(i) '当前行
    dr3("分组序号") = i + 1
    dr3("分组") = zjz
    zjz = zjz + zj
Next
For i = 0 To fzs + 1
    dr3 = Tables("正态分布").Rows(i) '当前行
    dr4 = Tables("正态分布").Rows(i + 1) '下一行
    dr3("频率") = Tables("正态分布").Compute("Count(日期)", "工效 >= " & dr3("分组") & " And 工效 < " & dr4("分组") & "")
Next

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2016/4/19 17:17:00 [只看该作者]

要分开循环，有道理，问题解决，谢谢大红袍老师！！

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

主题：[求助]获取频数（已解决）