以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何填充序号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178901)
--  作者：初学FT
--  发布时间：2022/7/26 21:37:00
--  如何填充序号
表中有列姓名，序号，怎么给学员填充序号
Dim drs As DataTable = DataTables("学生") 
    For i As Integer = 0 To drs.Count - 1
        drs(i)("序号") = i + 1
    Next
--  作者：有点蓝
--  发布时间：2022/7/26 21:52:00
--  
Dim t As Table = Tables("学生") 
    For i As Integer = 0 To t.rows.Count - 1
        t.rows(i)("序号") = i + 1
    Next

或者

for each r as row in Tables("学生") .rows
r("序号") = r.index + 1
next
--  作者：初学FT
--  发布时间：2022/7/27 2:11:00
--  
如果再加班级一列，每个班级学生的序号怎么能从1排起
--  作者：有点蓝
--  发布时间：2022/7/27 8:41:00
--  
for each s as string in DataTables("学生").getvalues("班级")
dim drs as list(of datarow) = DataTables("学生").select("班级=\'" & s & "\'")
    For i As Integer = 0 To drs.Count - 1
        drs(i)("序号") = i + 1
    Next
next