Dim cmd As New SQLCommand
Dim dt As DataTable = DataTables("成绩")
cmd.connect i
cmd.CommandText = "SE LECT * From {成绩}"
dt = cmd.ExecuteReader()
''''Dim dt As DataTable = DataTables("成绩")
Dim Arys As List(Of String()) = dt.GetValues("考试名称|学校代码|年级代码")
For Each Ary As String() In Arys
Dim drs As List(Of DataRow) = dt.Select("[考试名称] = '" & ary(0) & "'And [学校代码] = '" & ary(1) & "'and [年级代码] ='" & ary(2) & "'", "折总 DESC")
For n As Integer = 0 To drs.Count - 1 '遍历所有行
If n > 0 AndAlso drs(n)("折总") = drs(n-1)("折总") Then '如果总分和上一行相同
drs(n)("校序") = drs(n-1)("校序") '则排名等于上一行
Else
drs(n)("校序") = n + 1 '设置排名
End If
Next
Next
Dim Arys1 As List(Of String()) = dt.GetValues("考试名称|学校代码|年级代码|班级")
For Each Ary1 As String() In Arys1
Dim drs As List(Of DataRow) = dt.Select("[考试名称] = '" & ary1(0) & "'And [学校代码] = '" & ary1(1) & "'and [年级代码] ='" & ary1(2) & "'And [班级] = '" & ary1(3) & "'", "折总 DESC")
For m As Integer = 0 To drs.Count - 1 '遍历所有行
If m > 0 AndAlso drs(m)("折总") = drs(m-1)("折总") Then '如果总分和上一行相同
drs(m)("班序") = drs(m-1)("班序") '则排名等于上一行
Else
drs(m)("班序") = m + 1 '设置排名
End If
Next
Next
dt.save()
请问老师我想将原来的加载数据排序，改为后台直接排序，上面代码提示找不到折总列，是什么原因，怎么办？
加好友 
发短信
Post By：2016/11/1 9:25:00 [显示全部帖子]
