总分有效分：

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

点击浏览该文件:总分有效分.xls

示例：

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

点击浏览该文件:复件 高中期末成绩统计程序.rar

要求：

    dr("目标12") = ( dr("目标11") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")

该科的专科有效分      语数外专科线    语数外平均分之和   语数外标准差之和 该科标准差   该科平均分

其中“平均分之和”和“标准差之和”应为“科目”=“语数外”并且分文理科,

如何写代码？请指教，谢谢!

填写代码出来了，但我只想填充语、数、外的专科有效分，怎样加筛选条件？请指教，谢谢!

For Each bm As DataTable In DataTables
    For Each dr As DataRow In DataTables(bm.name).Select("部别 = \'高理\'")
        If bm.name <> "成绩库" AndAlso bm.Name <> "校名设置" AndAlso bm.Name <> "目标设置"
            Dim ldr As DataRow = DataTables("总分有效分").Find("部别 = \'" & dr("部别") & "\' And 科目 = \'语数外\'")
            dr("目标12") = ( dr("目标11") - ldr("平均分之和"))/ldr("标准差之和")*dr("标准差")+dr("平均分")
        End If
    Next
Next

这个问题已搞定!

代码如下：

For Each bm As DataTable In DataTables
    Dim kemu1_list() As String = {"语文","数学","英语"}
    Dim bubie_list() As String = {"高理","高文"}
    For Each kemu1 As String In kemu1_list
        For Each bubie As String In bubie_list
            Dim dr As DataRow = DataTables("总分有效分").Find("部别 = \'" & bubie & "\' And 科目 = \'" & kemu1 & "\'")
            If bm.name <> "成绩库" AndAlso bm.Name <> "校名设置" AndAlso bm.Name <> "目标设置"
                Dim ldr As DataRow = DataTables("总分有效分").Find("部别 = \'" & dr("部别") & "\' And 科目 = \'语数外\'")
                dr("目标12") = ( dr("目标11") - ldr("平均分之和"))/ldr("标准差之和")*dr("标准差")+dr("平均分")
            End If
        Next
    Next
Next