你不要着急写代码。首先你需要确定你的记录由于删除等操作是否会更新，比如删除了01005这个记录，后面的记录需不需要更新；其次，若有几个人同时修改记录是怎么办？（即你需要设置该表以独占的方式打开）；第三，你这个编号有无其他意义，若仅仅只是一个编号那就无需多言，若还表示其它意义，则需要考虑编号的意义，比如学生学号201210101007，前四位代表入学年份，中间四位代表院系，后四位为顺序号（假设）。你在考虑这几点之后在写代码吧。

用下面代码，在单机使用时应该可行。
IF EMPTY(序号)
    SELECT MAX(序号) FROM 居民信息 INTO ARRA A
    CEND=VAL(A)+1
    XH=PADL(ALLT(STR(CEND,5)),5,'0')
    select 居民信息
    repl 序号 with XH
endif

如果你不用自增字段，就要根据实际的用法自己写处理代码，需要考虑的情形取决于你的编程经验。

我把实例发上来，请老师帮我看一看。

表单文件打不开
不要随便用不了解功能的类，要自己写代码。

奇怪!在我的机子上可以打开呀．

不奇怪，因为你的VFP系统中装载了相应的类文件。

文件打不开

SELECT dwlc
COUNT TO a1
LOCATE FOR a01=PADL(a1,5,"0")
DO WHILE FOUND()
   a1=a1+1
   LOCATE FOR a01=PADL(a1,5,"0")
ENDDO   
dwlc.a01=PADL(a1,5,"0")


这是我自己的方法，这种方法的运算量还是比较大的

[ 本帖最后由 zjj1974 于 2014-8-14 21:57 编辑 ]