- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]需要且有可能的“child”限定符的单个列参数？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=31777)
-- 发布时间：2013/4/20 11:14:00
-- [求助]需要且有可能的“child”限定符的单个列参数？
执行代码出错：
此主题相关图片如下：未命名.jpg
是怎么回事？请指教，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复件 高中试卷难度区分度分析.rar |
-- 发布时间：2013/4/20 11:19:00
--
在什么情况下报错..
-- 发布时间：2013/4/20 11:23:00
--
“单选1-75题”没问题，代码执行到计算{"18-20题","写作一","写作二"}“最大值”开始。
[此贴子已经被作者于2013-4-20 11:24:41编辑过]
-- 发布时间：2013/4/20 11:27:00
--
e.Form.Controls("Label4").text="耗时 " & (Time1-Time).TotalSeconds & " 秒"
<!--EndFragment-->
是不是这句代码出问题，没看到TIME有什么值
-- 发布时间：2013/4/20 11:29:00
--
For Each Th As String In Ths
For Each bm As DataTable In DataTables
If bm.name <> "成绩库" AndAlso bm.Name <> "校名设置" AndAlso bm.Name <> "目标设置" AndAlso bm.Name <> "英语"
Dim dr As DataRow = DataTables(Km & "小题分析").AddNew()
dr("题号") = Th
dr("参考人数") = DataTables("英语").Compute("count(单位)")
dr("最大值") = DataTables("英语").Compute("Max("& dr("题号") &")")
dr("最小值") = DataTables("英语").Compute("Min("& dr("题号") &")")
dr("平均分") = DataTables("英语").Compute("Avg("& dr("题号") &")") 你把文字 当数字算? 能不报错?
End If
Next
Next
-- 发布时间：2013/4/20 11:29:00
--
e.Form.Controls("Label4").text="耗时 " & (date.now-Time1).TotalSeconds & " 秒"
试下这个
-- 发布时间：2013/4/20 12:15:00
--
如何修改？请明示，谢谢！
-- 发布时间：2013/4/20 12:17:00
--
你是想干什么? 这个无法修改.中文你想算什么? 换成数字就不会报错了.
-- 发布时间：2013/4/20 12:24:00
--
{"18-20题","写作一","写作二"}本身就是数字列。要求他们的最大值、最小值、平均分
-- 发布时间：2013/4/20 13:19:00
--
搞定，将“18-20题”列改为“填空题”列就行了。