- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何自动写入数字 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92149)
-- 发布时间：2016/10/27 12:37:00
-- 如何自动写入数字
请教：在窗口“Table" 中点“排序”按钮后，如何在绑定表的字段”名次“中依次自动生成"1、2、3……"名次序号，求动作
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:排名.rar |
语句。
附：原程序。
-- 发布时间：2016/10/27 14:40:00
--
例如按智i总分排名
Tables("打分排名表").Sort = "智i总分 desc"
Dim r As Row = Tables("打分排名表").Rows(0)
r("名次") = 1
For i As Integer = 1 To Tables("打分排名表").Rows.Count - 1
r = Tables("打分排名表").Rows(i)
If r("智i总分") = Tables("打分排名表").Rows(i-1)("智i总分") Then
r("名次") = Tables("打分排名表").Rows(i-1)("名次")
Else
r("名次") = i+1
End If
Next
-- 发布时间：2016/10/28 8:08:00
--
谢谢！