标题：我的代码没借，不知怎么要报错

1楼

lpxjw_zyl 发表于：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

2楼

yangming 发表于：2009/6/1 17:24:00

报什么错?

3楼

lpxjw_zyl 发表于：2009/6/1 17:26:00

狐表爸爸请帮帮我

4楼

lpxjw_zyl 发表于：2009/6/1 17:34:00

5楼

八婺发表于：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编辑过]

共5 条记录, 每页显示 10 条, 页签: [1]