- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]获取频数（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83914)
-- 发布时间：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("分组") & "\'")
Next
此主题相关图片如下：捕获13.png
[此贴子已经被作者于2016/4/19 17:17:04编辑过]
-- 发布时间：2016/4/19 16:41:00
--
试试
dr3("频率") = Tables("正态分布").Compute("Count(日期)", "工效 >= \'" & dr3("分组") & "\' And 工效 < \'" & dr4("分组") & "\'")
-- 发布时间：2016/4/19 16:53:00
--
谢谢大红袍老师的指教，但是还是一样，上传案例，请指教，谢谢！！
-- 发布时间：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
-- 发布时间：2016/4/19 17:17:00
--
要分开循环，有道理，问题解决，谢谢大红袍老师！！