**我做了一个程序,可以满足楼主的要求,程序运行通过,速度很快,
CLOSE DATABASES && 关闭所以已经打开的数据库
ALTER table aaa123 ADD COLUMN xbid1 c(28) &&添加一个新字段,用于xbid1,字段长度和值与xbid相同,用于存放**重复记录编号
INDEX on xbid TO xbid
GO TOP
i=11 && 定义重号的初始值
j=SUBSTR(xbid,1,14) && 定义重号的前14位数值
DO whil NOT EOF()
mXbid=xbid &&定义是否重号的初值
DO whil NOT EOF() AND xbid=mXbid &&判断是否重号
SKIP
DO CASE
CASE i<100
ii='0000'+STR(i,2)
CASE i<1000
ii='000'+STR(i,3)
CASE i<10000
ii='00'+STR(i,4)
CASE i<100000
ii='0'+STR(i,5)
CASE i>=100000 AND i<1000000
ii=STR(i,6)
ENDCASE
IF xbid=mXbid && 如果重号的话
REPLACE xbid1 WITH j+ii && 把数据写入重号字段xbid1
i=i+1 && 如果重号的话,i递增1
ENDIF
ENDDO
mXbid=xbid && 如果已经没有重号的了,就重新定义
ENDDO