getvalues用法出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → getvalues用法出错

共有2562人关注过本帖树形打印复制链接主题：getvalues用法出错

everybody

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：307 积分：2252 威望：0 精华：0 注册：2013/2/28 9:05:00

getvalues用法出错 发帖心情

Post By：2015/7/19 12:22:00 [只看该作者]

把study目录里面的“班级成绩排名”的班级名称，由整数型改为字符型后，以下编码出错，看样子应该是select语句中出错了，咋整？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成绩排名.foxdb

此主题相关图片如下：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

[此贴子已经被作者于2015/7/19 12:23:20编辑过]

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2015/7/19 12:45:00 [只看该作者]