主题：这样的自动编号如何实现？

新增时第一列的编号应是这一列最大编号加1，第二列是从1至N，重新上传附件。egd文件下载

egd文件下载

       如果行数不固定，请看看这个，应该更方便！

不是这样的要求呢！简单的说就是：每点击一次新增按钮添加n行，新增行的第一列编号自动加一（所有行都一样），新增行的每二列编号从1至n

egd文件下载

       再看看是不是这样？

-=-=-=- 以下内容由 程兴刚 在 2007年10月25日 05:09pm 时添加 -=-=-=-
请先输入新增行数！

对了！就是这样，非常感谢程版主！

-=-=-=- 以下内容由 dyshxb 在 2007年10月25日 05:55pm 时添加 -=-=-=-
有些疑问：Move(Rows,2)有什么作用？另外Right(""000"" + [%新增号%],4)为什么要用变量，直接Right(""000"" + Text(Number([第一列]) + 1),4)不行吗？

如果你的数据量比较大，用evalfor重算可能会影响速度。

我有一方法，你可以试一下。
第一列默认值公式：cell(row-1,col)
第二列默认值公式：Number(cell(row-1,col))+1
按钮公式：

if([%A%]<=0,MsgBox("请输入要增加的行数",0),AddRows(Grid,1) And SetCellText(Grid,Row,"第一列",Right("000"+text(MaxFor(Grid,"第一列")+1),4)) And SetCellText(Grid,Row,"第二列",1) And eval(Mid(Rept(" And AddRows(Grid,1)",[%A%]-1),5)))

这样就不受数据量的影响了。

楼上按钮公式有误，应该这样更省资源：

if([%A%]<=0,MsgBox("请输入要增加的行数",0),AddRows(Grid,1) And SetCellText(Grid,Row,"第一列",Right("000"+text(MaxFor(Grid,"第一列")+1),4)) And SetCellText(Grid,Row,"第二列",1) And AddRows(Grid,[%A%]-1))

    又学习一招！

非常好用，谢谢总版主！另外程版主还没问答我的问题（见15楼）

呵呵，看到版主的好方案，就没有在回答，那就解释一下！

    第一：Move(Rows,2)的目的是为了直接给变量赋值 Number([第一列]) ，如果这里不用变量，新增行后，录入焦点会跑到新增行，此时直接取值的话，第一列为空，Number([第一列]) 为0，这样的话，按您的方法直接使用，第一列新行增生成的值始终是“0001”

-=-=-=- 以下内容由 程兴刚 在 2007年10月25日 06:31pm 时添加 -=-=-=-
用Move(Rows,2)的可以省去一个cell()函数，一来可以避免cell()函数速度并不快，二来可以避免多嵌套一个cell函数可能产生的函数嵌套错误！