假定一张表中含员工姓名和姓名缩写，要给相同的姓名缩写后加一个数字。例如：Mis suy 缩写MS ,
下一个MIS son 缩写MS1，依次类推。请检查代码错误。

CLOSE DATABASES
USE xm
INDEX on personid TAG aa
nCnt = 1
cPersonid = ""
SCAN
    IF personid == cPersonid
        nCnt = nCnt + 1
    ELSE
        nCnt = 1
    ENDIF
    ? ALLTRIM(personid) + TRANSFORM(nCnt)
    cPersonid = personid
ENDSCAN
BROWSE

是不是这个意思? (注意表内大小写)
    close all
    nss=1
    select recno() as no,* from xm into cursor x0 order by personid
    select x0
    go top
 do while !EOF()
    c01=ALLTRIM(personid)
    skip
    c02=ALLTRIM(personid)
    nrec=no
    if c01==c02
       select xm
       go nrec
       replace personid with (ALLTRIM(personid)+TRANSFORM(nss))
       nss=nss+1
    else
       nss=1
    endif   
    select x0
 enddo

   select xm
   go top
   browse