以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  一序号列在按其它列排序后,如何让其重按新行号赋值?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3005)

--  作者:yangming
--  发布时间:2009/6/3 14:58:00
--  一序号列在按其它列排序后,如何让其重按新行号赋值?
一张表比如有一序号列,又有类型列,当按类型列排序后,想让序号列按行号赋值,如何操作?
--  作者:狐狸爸爸
--  发布时间:2009/6/3 14:59:00
--  
tables("表名").sort = "类型,_Identify"
--  作者:yangming
--  发布时间:2009/6/3 15:00:00
--  
我现在表中的Identify都乱了,呵,还有我要的效果如易表的中"Row"
[此贴子已经被作者于2009-6-3 15:02:23编辑过]

--  作者:狐狸爸爸
--  发布时间:2009/6/3 15:16:00
--  
呵呵,这个我也没有办法。

--  作者:狐狸爸爸
--  发布时间:2009/6/3 15:19:00
--  
要不这样:

For each r As Row In Tables("某表").rows()
   r("序号") = r.Index
Next
--  作者:yangming
--  发布时间:2009/6/3 15:23:00
--  
我试了,改成这样,就能从1开始编号了,呵呵,谢谢贺老师
 
For each r As Row In Tables("常用代码").rows()
   r("xh") = r.Index+1
Next
[此贴子已经被作者于2009-6-3 15:26:40编辑过]

--  作者:狐狸爸爸
--  发布时间:2009/6/3 15:32:00
--  

这样高效一点:

With Tables("常用代码")
    For i AS integer = 0 To  .Rows.Count - 1
        .Rows(i)("xh") =  i + 1
    Next

End With


--  作者:yangming
--  发布时间:2009/6/3 15:36:00
--  
收到,我改一下,呵
--  作者:mr725
--  发布时间:2009/6/3 16:06:00
--  

没看懂这个题目,是原有序号已经有‘号’,在按类型列排序后,重新获得新的序号,我理解的对吗?


--  作者:yangming
--  发布时间:2009/6/3 16:09:00
--  
以下是引用mr725在2009-6-3 16:06:00的发言:

没看懂这个题目,是原有序号已经有‘号’,在按类型列排序后,重新获得新的序号,我理解的对吗?

对头,呵呵,原来就有序号,当我新增了行后,然后按类型排序,再重新给序号赋值