以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 如何取得行号  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56621)

--  作者:netfox168
--  发布时间:2014/9/10 0:35:00
--  [求助] 如何取得行号
我想在某列显示行号,如何设置?
这个行号不单是表的总行号,在筛选的情况下也显示筛选后的行号。

--  作者:Bin
--  发布时间:2014/9/10 8:32:00
--  
不是很明确你的意思.
--  作者:有点甜
--  发布时间:2014/9/10 9:07:00
--  
 这个没有意义,默认不是显示行号的麽?为什么还有在列里显示?
--  作者:netfox168
--  发布时间:2014/9/10 9:15:00
--  
实际是想类似 excel 的 =ROW() 函数。
原意是在窗口中插入表控件,但实在不喜欢表默认的行号,所以想用一列来代替,并且可以加上“序号”这样的字段名。

--  作者:有点甜
--  发布时间:2014/9/10 9:18:00
--  

 如果要做的话,比较麻烦,每次筛选都要重新生成序号

 

 参考代码

 

Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
    r("第一列") = r.Index + 1
Next


--  作者:netfox168
--  发布时间:2014/9/10 9:52:00
--  
可以做到了,谢谢!但是不知当海量数据时是否会花很长时间来执行。