主题：[求助]代码怎么不执行？

我将“文、理科有效分计算”两个按钮合并成一个“有效分计算”按钮，在执行代码时“高理”、“总分”的“有效分”(统计结果中红色数字)代码没执行，而“高文”、“总分”的“有效分”代码就执行了的。不知怎么回事，请指教，谢谢!

“高理”、“总分”的“有效分”代码：

        dr("目标3") = dr("目标2")
        dr("目标6") = dr("目标5")
        dr("目标9") = dr("目标8")
        dr("目标12") = dr("目标11")

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

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

统计结果：

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

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

 改一下这段代码，两个地方。

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 <> "目标设置"
            dr("目标3") = ( dr("目标2") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
            dr("目标6") = ( dr("目标5") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
            dr("目标9") = ( dr("目标8") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
            dr("目标12") = ( dr("目标11") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
        End If
    Next
Next

搞定，谢谢!