- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]代码怎么不执行？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28653)
-- 发布时间：2013/2/7 1:22:00
-- [求助]代码怎么不执行？
我将“文、理科有效分计算”两个按钮合并成一个“有效分计算”按钮，在执行代码时“高理”、“总分”的“有效分”(统计结果中红色数字)代码没执行，而“高文”、“总分”的“有效分”代码就执行了的。不知怎么回事，请指教，谢谢!
“高理”、“总分”的“有效分”代码：
dr("目标3") = dr("目标2")
dr("目标6") = dr("目标5")
dr("目标9") = dr("目标8")
dr("目标12") = dr("目标11")
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复件 高中期末成绩统计程序.rar |
统计结果：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:有效分.xls |
[此贴子已经被作者于2013-2-7 1:22:58编辑过]
-- 发布时间：2013/2/7 8:58:00
--
改一下这段代码，两个地方。
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
-- 发布时间：2013/2/7 10:29:00
-- 搞定，谢谢!
搞定，谢谢!