Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
Dim Values() As String = {"语文","数学","英语","物理","政治","历史","地理","生物","总分"}
For Each Value as string in Values
dim tj as string = "[" & value & "排名" & "]"
For Each dr as DataRow in DataTables( value & "层次").DataRows
dim tt as Integer = DataTables( value & "层次").DataRows.count*0.2
dr("参考人数") = DataTables("八年级").Compute("count(单位)", "[单位] = '" & dr("单位") & "'")
dr("平均分") = DataTables("八年级").Compute("Avg( " & value & ")", "[单位] = '" & dr("单位") & "'")
dr("最高分") = DataTables("八年级").Compute("Max( " & value & ")", "[单位] = '" & dr("单位") & "'")
dr("前20人") = DataTables("八年级").Compute("count(单位)", "[单位] = '" & dr("单位") & "' and " & tj & " <= '" & tt & "'")
next
next
没看出来的,配合一个简单的实例文件,输入一些数据,说明那里不对,这样比较容易找出错误。
我是用按钮生成 的
在窗口管理里面
盼狐爸爸早日回复
狐爸爸请你帮忙解决,急需要了解这个到底是怎么一回事儿