**我做了一个程序,可以满足楼主的要求,程序运行通过,速度很快,
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