标题：如何设计“单项平均”公式？

先设计好表结构，然后尝试自己设计一下，搞不定的话，再上来提问吧。

对，对，对，这个教师得分表不就是您说得那个统计表吗。学生评分表，不就是数据源表吗？现在是我的提问有问题了。您再给我看看，这个代码怎么写？？？

这个简单吗？您认为很简单，但我却认为是非常难的东西，帮帮忙吧。谢谢了

我同样设置了两项，按钮也做好了，其余的自己增加即可。
现在不到一秒，即可出结果：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学生评教表.rar

注意窗口在教室得分表，我在这个表增加了两个单项平均栏目。

谢谢，我看看，现在的问题应该解决了

不用增加这两个，直接添加到“XXX_得分”列就成了，哈哈，太感谢了。

其实这样的统计，易表完全能够胜任的，只是你之前的表结构设计有问题。

添加一行代码，结果出现错误，看看错在哪里

For Each dr As DataRow In DataTables("教师得分表").DataRows
   Dim Sum As Double = DataTables("学生评分表").Compute("Sum(你认为老师的教学态度_合计)","[教师姓名] = '" & dr("教师姓名") & "'")
   Dim Count As Integer = DataTables("学生评分表").Compute("Count(教师姓名)","[教师姓名] = '" & dr("教师姓名") & "'")
   dr("教学态度_得分") = Math.Round(Sum / Count,3)

   Sum = DataTables("学生评分表").Compute("Sum(你认为老师创设的课堂情景_合计)","[教师姓名] = '" & dr("教师姓名") & "'")
   dr("课堂情景_得分") = Math.Round(Sum / Count,3)

   Sum = DataTables("学生评分表").Compute("Sum(老师是否按时上下课课准备是否充分_合计)","[教师姓名] = '" & dr("教师姓名") & "'")
   dr("教师备课_得分") = Math.Round(Sum / Count,3)

Next

此主题相关图片如下：1.jpg

其实不存在这一列：
老师是否按时上下课课准备是否充分_合计

正确的列名称是：
老师是否按时上下课,课准备是否充分_合计

但是这个列名称居然有一个逗号，不符号要求，必须加上方括号：

所以正确的代码是：
Sum = DataTables("学生评分表").Compute("Sum([老师是否按时上下课,课准备是否充分_合计])","[教师姓名] = '" & dr("教师姓名") & "'")
 
我建议你以后设计系统的时候，列名称规范一点，否则自寻烦恼。