以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  序号问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160445)

--  作者:hbfnmxb
--  发布时间:2021/2/2 19:16:00
--  序号问题
表中有两列:“序号”列,“学生姓名”列,有96行相同的学生姓名,希望在“序号”列中,标记出1-96,请老师帮忙,这个公式如何来表达?谢谢老师
--  作者:有点蓝
--  发布时间:2021/2/2 20:15:00
--  
Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("[
学生姓名] = \'张三\'")
For i as inetger = 0 to drs.count - 1

    dr("
序号") = i
Next

--  作者:hbfnmxb
--  发布时间:2021/2/2 20:40:00
--  
提示错误:
图片点击可在新窗口打开查看此主题相关图片如下:55.png
图片点击可在新窗口打开查看代码如下:

Dim drs As List(Of DataRow)
drs = DataTables("志愿填报筛选汇总表").Select("[学生姓名] = \'刘二麻\'")
For i As inetger = 0 To drs.count - 1
    dr("序号") = i
Next

--  作者:hbfnmxb
--  发布时间:2021/2/2 20:43:00
--  
假如学生姓名列,不只一名学生,每96行为一个学生名。可能有N个学生,可能有N个96行,每96行都是从1到96来标记顺序号。公式如何来表达


--  作者:有点蓝
--  发布时间:2021/2/2 20:46:00
--  
提示很明显了,输错一个词而已,自己要有点判断能力,不要只会等着别人改。

多个学生基本同样的用法,外层再套一个循环即可:http://www.foxtable.com/webhelp/topics/2747.htm

--  作者:hbfnmxb
--  发布时间:2021/2/2 21:26:00
--  
老师,您把我看高了,我就是一个小白,而且是小小白,只能模仿。哪里有判断能力。
--  作者:有点蓝
--  发布时间:2021/2/2 21:33:00
--  
那就在学学基础吧:http://www.foxtable.com/webhelp/topics/0208.htm
--  作者:hbfnmxb
--  发布时间:2021/2/2 23:24:00
--  
谢谢老师
--  作者:hbfnmxb
--  发布时间:2021/2/20 10:59:00
--  
在表   CurrentChanged 事件中:输入下列代码,

For Each r As Row In Tables("志愿填报筛选汇总表").rows
r("序号") = r.index+1
Next

做个记录,可以按不同选择重新给序号列编号。