[求助]如何按天数进行分别求值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下边一段代码，分2天进行，每天的成绩分别求面试室平均值，加权平均值，加权系数，现在是2天一起，如何修改代码，请指教

If e.DataCol.name="天数" OrElse e.DataCol.name="面试室" Then

If e.DataRow.IsNull("天数")=False AndAlso e.DataRow.IsNull("面试室")=False Then

Dim zgf1, zgf2, zdf1, zdf2 As Double

Dim drs As List(Of DataRow) = DataTables("笔试成绩").Select("天数='" & e.DataRow("天数") & "' and 面试室='" & e.DataRow("面试室") & "'And 本场面试成绩 Is Not Null", "本场面试成绩")

zgf1 = drs(drs.Count-1)("本场面试成绩")

zgf2 = drs(drs.Count-2)("本场面试成绩")

zdf1 = drs(0)("本场面试成绩")

zdf2 = drs(1)("本场面试成绩")

Dim sum As Double = DataTables("笔试成绩").Compute("sum(本场面试成绩)","天数='" & e.DataRow("天数") & "' and 面试室='" & e.DataRow("面试室") & "'")

e.DataRow("面试室平均值") = Format((sum - zgf1 - zgf2 - zdf1 - zdf2) /( drs.Count - 4),"0.0000")

e.DataRow("加权平均值") = Format(e.DataTable.Compute("avg(面试室平均值)"),"0.0000")

e.DataRow("加权系数") = Format(e.DataRow("加权平均值")/e.DataRow("面试室平均值"),"0.0000")

e.DataRow("计数") = DataTables("笔试成绩").Compute("Count(总成绩)","天数 = '" & e.DataRow("天数") & "' and 面试室 = '" & e.DataRow("面试室") & "'")

End If

Else If e.DataCol.Name = "面试室平均值" Then

For Each dr As DataRow In e.DataTable.DataRows

dr("加权平均值") = Format(e.DataTable.Compute("avg(面试室平均值)"),"0.0000")

e.DataRow("加权系数") = Format(e.DataRow("加权平均值") / e.DataRow("面试室平均值"),"0.0000")

End If

dr("加权平均值") = Format(e.DataTable.Compute("avg(面试室平均值)"),"0.0000")

这一句怎么改？？？？？？

上例子：在加树计算表属性中，请修改。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:面试登分系统_201505250952.zip

加权计算表属性中修改，现在是不能按天进行计算，

数据库：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:数据库.zip

计算数据：

（1）面试室平均值：按天数、按面试室分别去掉2个最高分，去掉2个最低分，然后计算每个面试室剩下人员的“面试室平均值”；

（2）加权平均值：按天，计算出“面试室平均值”的平均值；

（2）加权系数：按天，将“加权平均值”除以“面试室平均值”

按你所讲，把代码复制进去后，出现以下情况，

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

每个面试室最少是22人，最多30人，不会小于4人的

可以了，但是数据填充时，第一次点的时候不出现数据，关了软件后，再重启，再点数据填充时，才能数据，怎么办？

能即时计算不？

点按钮后，只出现职位代码、面试室、分组，但面试室平均值、加权平均值、加权系数，不出现，必须得关闭软件，再重新打开，才行，什么原因？

主题：[求助]如何按天数进行分别求值？