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

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

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