公务面试中，所有考场面试结束后，分别对每个考场去掉2个最高分，去掉2个最低分，然后计算出其余考生面试成绩的“面试室平均值”，如何修改代码，请专家指点。谢谢。
具体算法：（1）先找出每个面试室的2个最高分和2个最低分，（2）算出每个面试室去掉2个最高分和2个最低分后的其他分数的面试室平均值（3）算出所有面试室平均值的平均值，即加权平均值（4）加权平均值除以每个面试室的面试平均值，得出加权系数。
If e.DataCol.name="天数" OrElse e.DataCol.name="面试室" Then
If e.DataRow.IsNull("天数")=False AndAlso e.DataRow.IsNull("面试室")=False Then
e.DataRow("最高分") = DataTables("笔试成绩").Compute("max(总成绩)","天数='" & e.DataRow("天数") & "' and 面试室='" & e.DataRow("面试室") & "'")
e.DataRow("最低分") = DataTables("笔试成绩").Compute("min(总成绩)","天数='" & e.DataRow("天数") & "' and 面试室='" & e.DataRow("面试室") & "'")
e.DataRow("总分") = DataTables("笔试成绩").Compute("sum(总成绩)","天数='" & e.DataRow("天数") & "' and 面试室='" & e.DataRow("面试室") & "'")-e.DataRow("最高分")-e.DataRow("最低分")
Dim maxid As Integer = DataTables("笔试成绩").FInd("天数='" & e.DataRow("天数") & "' and 面试室='" & e.DataRow("面试室") & "'","总成绩 desc")("_IDentify")
Dim minid As Integer = DataTables("笔试成绩").FInd("天数='" & e.DataRow("天数") & "' and 面试室='" & e.DataRow("面试室") & "'","总成绩")("_IDentify")
e.DataRow("面试室平均值")= DataTables("笔试成绩").Compute("avg(总成绩)","天数='" & e.DataRow("天数") & "' and 面试室='" & e.DataRow("面试室") & "' and _identify not in ("& maxid & "," & minid & ")")
e.DataRow("计数") = DataTables("笔试成绩").Compute("Count(总成绩)","天数='" & e.DataRow("天数") & "' and 面试室='" & e.DataRow("面试室") & "'")
e.DataRow("加权平均值") = e.DataTable.Compute("avg(面试室平均值)","天数='" & e.DataRow("天数") & "' and 是否加权='" & e.DataRow("是否加权") & "'" )
e.DataRow("加权系数") = e.DataRow("加权平均值")/e.DataRow("面试室平均值")
End If
End If
加好友 
发短信
Post By：2015/5/21 9:42:00 [显示全部帖子]
