- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]按考试类型统计平均数并填充 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63807)
-- 发布时间：2015/1/29 11:53:00
-- [求助]按考试类型统计平均数并填充
我要按考试类型统计平均数，然后填充到班级总分列中，为什么有几个没有数据？
帮我看看代码有什么问题？
感觉少了循环？
\'生成均分
Dim dt As Table = Tables ("均分差" )\'定义一张表
Dim s As String = dt .Current ( "考试名称" )\'定义一个单元值
For Each dr As DataRow In DataTables ("均分差" ). Select( "[考试名称] = \'" & s & "\'")
dr ("班总均分" ) = dt. Compute ("avg(总分)" , "[考试名称] = \'" & s & "\'" )
Next
此主题相关图片如下：1.png
[此贴子已经被作者于2015-1-29 13:17:41编辑过]
-- 发布时间：2015/1/29 11:54:00
--
上个例子看看 哪里没数据源. 代码没问题.
-- 发布时间：2015/1/29 11:55:00
--
可能是你的 考试名称有空格. 在计算机眼中 "A" 和"A " 是不一样的
-- 发布时间：2015/1/29 11:55:00
--
上传图像了，麻烦帮我看看是什么问题？
-- 发布时间：2015/1/29 11:58:00
--
哪里？代码里面？
-- 发布时间：2015/1/29 11:58:00
--
代码没问题,不是说了吗?
单元格里的.
搞不定就上例子
-- 发布时间：2015/1/29 12:11:00
--
我明白什么问题了
看图：
此主题相关图片如下：2.png
统计平均数时代码应该是只选择了与第一行的考试名称相同的总分列进行了平均计算
我需要的是，按照每一个考试名称都要进行平均数计算，可是不知道代码怎么修改？虚心求教，谢谢
-- 发布时间：2015/1/29 14:01:00
--
For Each dr As DataRow In DataTables ("均分差" ). Select("")
dr ("班总均分" ) = DataTables ("均分差" ). Compute ("avg(总分)" , "[考试名称] = \'" & dr("考试名称") & "\'" )
Next