- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93906)
-- 发布时间：2016/12/9 23:17:00
-- [求助]
请教大师们，我要在某一列自动生成从1开头的数字编号要怎么做
这个编号要随行数增加而增加，删除而删除，先谢谢大师们
[此贴子已经被作者于2016/12/9 23:25:37编辑过]
-- 发布时间：2016/12/10 9:08:00
--
For i As Integer = 0 To Tables("表A").Rows.Count - 1
Tables("表A").Rows(i)("序号") = i+1
Next
删除列之后重新排序
-- 发布时间：2016/12/10 15:23:00
--
谢谢大师，再问下：当某行删除后再增加行时，编号不自动重排，而是接着最后一个编号断续编下去，能做到吗，也就是说不用_Identify却能达到想同的目的，但是_Identify不能重复
-- 发布时间：2016/12/10 15:34:00
--
Tables("表A").Current("序号") = val(Tables("表A").Compute("max(序号)")) + 1
-- 发布时间：2016/12/10 16:26:00
--
强，谢谢