我有一个表。里面有一个字段。有很多重复数据。
现在需要将重复数据筛选出来。并且对重复数据的序号在同一类数据的最大号的基础上进行递增。比如

数据如下




[ 本帖最后由 wjp456789 于 2012-12-19 23:56 编辑 ]

因为重复字段还对应有其他数据。所以编号唯一的地方不得换编号。只是对重号的编号进行递增。

[ 本帖最后由 wjp456789 于 2012-12-19 23:57 编辑 ]

1.你如何确保递增的区间不侵犯到下面的部分？
2.你图中右侧那些目标编号，为何是跳跃性的？101010001，下面怎么跳跃到101010011？101010010怎么跳到101010015？对前者，连排序的顺序都变了，是希望的结果吗？

[ 本帖最后由 TonyDeng 于 2012-12-20 01:27 编辑 ]

可能图片上有点错误，本来是想帮别人解决问题，结果自己不能完全解决问题，就上来求救了。T版说的那好象是有点问题。应该是跳到14



编号是分了几个区间
在每一个区间内。对重号进行重新编排，按现有的顺序，保留第一个重号，其他重号在本区间内，在已有的最大值上面加1.

如果要排序。应该把所有重号重新编号后才排序。现在不急于排序。

不知道我表述清楚没有。

[ 本帖最后由 wjp456789 于 2012-12-20 08:55 编辑 ]

最后的重复编号101020110为什么不改为101020111，而要改成101020133？是以前面6位数为基数来推算当前最大的编号吗？

另外记录中还有其他唯一的关键字么？

写了一段程序，应该可以实现楼主的意愿，只是速度太慢，
所以可以考虑在原表上加上关键字，然后用seek有可能会更快些

SELECT  xbid FROM aaa123 INTO ARRAY tmp&&将编号保存到数组tmp
USE aaa123
m=ALEN(tmp)
FOR i = 1 TO m&&遍历每个记录
    search=0&&数组中是否有记录的初始值
    DO WHILE .T.
        IF search=0&&第一次在数组中查找
            search=ASCAN(tmp,xbid,i+1)
        ELSE&&第一次以上在数组中查找
            search=ASCAN(tmp,xbid,search+1)
        ENDIF
        IF search=0&&如果查找不到，则退出
            EXIT
        ENDIF
        **如果查找到，则改变编号
        ii=1&&编号加每次加1的初始值
        searchnext=0&&编号加1是否在数组中得重复的初始值
        DO WHILE .T.
            xbidnext=PADR(LEFT(xbid,12)+ALLTRIM(STR((VAL(SUBSTR(xbid,13))+ii),16)),28)&&编号加1，超过了十六位，所以作了处理
            IF searchnext=0&&第一次查找加1的编号
                searchnext=ASCAN(tmp,xbidnext,search+1)
            ELSE&&第一次以上查找加1的编号
                searchnext=ASCAN(tmp,xbidnext,searchnext+1)
            ENDIF
            IF searchnext=0&&如果找不到这个加1的编号，则将刚才查找到不加1的编号变为这个加1编号。
                tmp(search)=xbidnext
                EXIT&&退出循环
            ENDIF
            ii=ii+1&&编号再次加1
        ENDDO
    ENDDO
    SKIP &&移动记录
ENDFOR
*****整理编号
GO TOP 
FOR i=1 TO m
GO i
replace xbid WITH tmp(i)
endif

SELECT LEFT(XBID,14) XB,MAX(XBID) MAXXB FROM AAA123 GROUP BY XB INTO CURSOR T &&按前14位数字进行分组，并找出该分组的最大值
SELECT *,SPACE(20) N FROM AAA123 ORDER BY XBID INTO CURSOR T1 READWRITE &&生成新的临时表
BH=[]
BH1=[]
SELECT T
SCAN
   BH1=RIGHT(ALLTRIM(T.MAXXB),6)
   SELECT T1
   SCAN FOR LEFT(XBID,14)==T.XB
      IF ALLTRIM(XBID)==ALLTRIM(BH)
         REPLACE N WITH T.XB+PADL(ROUND(VAL(BH1)+1,0),6,[0])
         BH1=RIGHT(N,6)
      ENDIF
      BH=XBID
   ENDSCAN
   SELECT T
ENDSCAN
SELECT T1
BROWSE

[ 本帖最后由 bccn201203 于 2012-12-20 13:38 编辑 ]

作个记号