标题：一序号列在按其它列排序后,如何让其重按新行号赋值?

1楼

yangming 发表于：2009/6/3 14:58:00

一张表比如有一序号列,又有类型列,当按类型列排序后,想让序号列按行号赋值,如何操作?

2楼

狐狸爸爸 发表于：2009/6/3 14:59:00

tables("表名").sort = "类型,_Identify"

3楼

yangming 发表于：2009/6/3 15:00:00

我现在表中的Identify都乱了,呵,还有我要的效果如易表的中"Row"

[此贴子已经被作者于2009-6-3 15:02:23编辑过]

4楼

狐狸爸爸 发表于：2009/6/3 15:16:00

呵呵，这个我也没有办法。

5楼

狐狸爸爸 发表于：2009/6/3 15:19:00

要不这样：

For each r As Row In Tables("某表").rows()
r("序号") = r.Index
Next

6楼

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编辑过]

7楼

狐狸爸爸 发表于：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

8楼

yangming 发表于：2009/6/3 15:36:00

收到,我改一下,呵

9楼

mr725 发表于：2009/6/3 16:06:00

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

10楼

yangming 发表于：2009/6/3 16:09:00

以下是引用mr725在2009-6-3 16:06:00的发言：

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

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

共10 条记录, 每页显示 10 条, 页签: [1]