- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 甜老师请看一下 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45721)
-- 发布时间：2014/2/9 22:07:00
-- 甜老师请看一下
以下附件代码也要修改以下，达到跳高和跳远取前八名一样的效果，不同的是，时间短的成绩排前面，时间长的成绩排后面。
-- 发布时间：2014/2/9 22:17:00
--
一样的代码哦。
Tables("表A").sort="成绩"
DataTables("表A").ReplaceFor("名次", Nothing, Tables("表A").Filter)
Dim mc As Integer=1
Dim count As Integer=IIF(Tables("表A").Rows.count-1<8,Tables("表A").Rows.count-1,7)
For i As Integer=0 To count
If i>0 AndAlso Tables("表A").Rows(i)("成绩") <> Tables("表A").Rows(i-1)("成绩") Then
mc=mc+1
End If
Tables("表A").Rows(i)("名次")=mc
Next
If Tables("表A").Filter > "" Then
Tables("表A").Filter +=" and 名次 is not null"
Else
Tables("表A").Filter ="名次 is not null"
End If
[此贴子已经被作者于2014-2-9 22:19:12编辑过]
-- 发布时间：2014/2/10 11:25:00
--
甜老师：经测试，有点问题，请帮忙修改以下。
此主题相关图片如下：代码要修改。.png
-- 发布时间：2014/2/10 11:40:00
--
你的图示有什么问题吗? 仔细看了一下 排名正确啊
-- 发布时间：2014/2/10 11:55:00
--
排名是正确的。我之所以每次只要求出现每一个比赛项目的前八名，是因为马上就打印这比赛项目前八名的成绩表，如果各种项目的前八名都同时出现了，就麻烦了。
-- 发布时间：2014/2/10 12:00:00
--
那是筛选条件的问题,这么简单的问题不会处理不科学吧? 不就是设置一下筛选条件而已嘛?
-- 发布时间：2014/2/10 12:01:00
--
好歹也接触了3年狐表啊. Filter多加一个 项目名称的筛选条件就可以了啊.
-- 发布时间：2014/2/10 12:06:00
--
我对代码设计还不是很懂，正在努力学习中，各位老师的指导对我的学习帮助很大，谢谢了。