Dim dt As DataTable = DataTables("职称评审成绩")
Dim dt_d As DataTable = DataTables("加权计算")
dt_d.DataRows.Clear
For Each zy As String In dt.GetValues("专业组名称")
    Dim ls As List(Of String) = dt.GetValues("面试室", "专业组名称 = \'" & zy & "\'")
    Dim zy_sum As Double = 0
    For Each s As String In ls
        Dim dr As DataRow = dt_d.AddNew
        dr("专业组名称") = zy
        dr("面试室") = s
        Dim sum As Double = dt.Compute("sum(原始成绩)", "专业组名称 = \'" & zy & "\' and 面试室 = \'" & s & "\'")
        Dim count As Double = dt.Compute("count(原始成绩)", "专业组名称 = \'" & zy & "\' and 面试室 = \'" & s & "\'")
        dr("面试室平均值") = sum / count
        zy_sum += dr("面试室平均值")
    Next
    dt_d.ReplaceFor("加权平均值", zy_sum / ls.Count, "专业组名称 = \'" & zy & "\'")
Next
For Each dr As DataRow In dt_d.DataRows
    dr("加权系数") = dr("加权平均值") / dr("面试室平均值")
Next