- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 我的代码没借，不知怎么要报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2981)
-- 发布时间：2009/6/1 16:55:00
-- 我的代码没借，不知怎么要报错
For i as Integer = Tables("八年级").cols.count - 11 to Tables("八年级").cols.count - 3
For Each dr as DataRow in DataTables(Tables("八年级").cols(i).name & "层次").DataRows
dr("参考人数") = DataTables("八年级").Compute("count(单位)", "[单位] = \'" & dr("单位") & "\'")
dr("平均分") = DataTables("八年级").Compute("Avg(Tables("八年级").cols(i).name )", "[单位] = \'" & dr("单位") & "\'")
dr("最高分") = DataTables("八年级").Compute("Max(Tables("八年级").cols(i).name )", "[单位] = \'" & dr("单位") & "\'")
next
next
-- 发布时间：2009/6/1 17:24:00
--
报什么错?
-- 发布时间：2009/6/1 17:26:00
--
狐表爸爸请帮帮我
-- 发布时间：2009/6/1 17:34:00
--
-- 发布时间：2009/6/1 17:37:00
--
有错吧，代码没错怎么会报错？
这样试试。
Dim dt As DataTable = DataTables("八年级")
For i as Integer = Tables("八年级").cols.count - 11 to Tables("八年级").cols.count - 3
For Each dr as DataRow in dt.DataRows
dr("参考人数") = dt.Compute("count(单位)", "[单位] = \'" & dr("单位") & "\'")
dr("平均分") = dt.Compute("Avg(" & Tables("八年级").cols(i).name & ")", "[单位] = \'" & dr("单位") & "\'")
dr("最高分") = dt.Compute("Max(" & Tables("八年级").cols(i).name & ")", "[单位] = \'" & dr("单位") & "\'")
next
next
[此贴子已经被作者于2009-6-1 20:26:05编辑过]