- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- getvalues用法出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71850)
-- 发布时间：2015/7/19 12:22:00
-- getvalues用法出错
把study目录里面的“班级成绩排名”的班级名称，由整数型改为字符型后，以下编码出错，看样子应该是select语句中出错了，咋整？
此主题相关图片如下：qq截图20150719122226.png
\'获得所有班级名称,保存在集合中
Dim bjs As List(Of String) = DataTables("成绩表").GetValues("班级")
For Each bj As String In bjs
\'获得该班级的全部行,按总分降序排序
Dim drs As List(Of DataRow) = DataTables("成绩表").Select("[班级] = " & bj, "总分 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
[此贴子已经被作者于2015/7/19 12:23:20编辑过]
-- 发布时间：2015/7/19 12:45:00
--
\'获得所有班级名称,保存在集合中
Dim bjs As List(Of String) = DataTables("成绩表").GetValues("班级")
For Each bj As String In bjs
\'获得该班级的全部行,按总分降序排序
Dim drs As List(Of DataRow) = DataTables("成绩表").Select("[班级] = \'" & bj & "\'", "总分 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
-- 发布时间：2015/7/19 13:06:00
--
谢啦！