主题：[求助]加权计算如何写代码

各位专家：遇到一个问题求解：如例子中的“加权计算”表中，“面试平均值”是指在一个面试室中分别去掉2个最高分和去掉2个最低分，然后计算出其余考生面试成绩得分的平均分数；加权平均值是指，进行加权的面试室（如本例中的第一、第二、第三面试室）的"面试平均值"的平均值（如本例中的第一面试室平均值+第二面试室平均值+第三面试室平均值除以3）；加权系数是指：用“加权平均值”除以每个加权的面试室的“面试平均值”；这样的代码怎么写，尤其是“面试平均值”如何去掉2个最高分和2个最低分，然后把剩余的人员的成绩相加除以剩余的人员数，谢谢

 面试室平均值，这样算，剩下的自己试试做

 

        Dim zgf1, zgf2, zdf1, zdf2 As Double
        Dim drs As List(Of DataRow) = DataTables("笔试成绩").Select("天数='" & e.DataRow("天数") & "' and 分组='" & e.DataRow("分组") & "'", "面试成绩")
        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("面试室平均值") = (sum - zgf1 - zgf2 - zdf1 - zdf2) / drs.Count - 4

加权平均值是指，面试室平均值的平均值，也就是有几个加权的面试室，就把这几个面试室的"面试室平均值"相加除以这几个面试室的数

代码，如下

 

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("面试室") & "'", "本场面试成绩")
        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("面试室平均值") = (sum - zgf1 - zgf2 - zdf1 - zdf2) /( drs.Count - 4)

        e.DataRow("加权平均值") = e.DataTable.Compute("avg(面试室平均值)")
        e.DataRow("加权系数") = e.DataRow("加权平均值")/e.DataRow("面试室平均值")
        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("加权平均值") = e.DataTable.Compute("avg(面试室平均值)")
    Next
End If

代码不行啊，我把软件发给你看一下吧

 回复6楼，代码哪里不行？能否具体说说？谁知道你哪里不对啊

 

 你给的项目，没有带有对应的数据库。

对不起，数据库在data中，连接一下就可以了，主要出现下图中的计数和加权平均值 及加权系数上，请看：

加权平均值数据不对，第一行的加权系数没出现，为0，计数都为0，谢谢

数据库放在目录下就可以了。数据库为：