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

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

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

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

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

要不这样：

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

我试了,改成这样,就能从1开始编号了,呵呵,谢谢贺老师
 
For each r As Row In Tables("常用代码").rows()
   r("xh") = r.Index+1
Next

这样高效一点：

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

End With

收到,我改一下,呵

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

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