其實這種排查重複數據的手法，全都是一樣的原理，類似的代碼示例我也發過多次，但總就見個別長期反復問同一類的問題，根本學不到手的。

close all
use D:\数据处理\dsgz20150324.dbf
x=dwmc
y=xm
INDEX on ALLTRIM(xm)+ALLTRIM(dwmc) TAG xmdwmc
SET INDEX TO D:\数据处理\dsgz20150324.cdx
SCAN FOR ALLTRIM(x)==ALLTRIM(dwmc) AND ALLTRIM(y)==ALLTRIM(xm)
      DO WHILE FOUND()
         REPLACE zm WITH ALLTRIM(xm)+"("+ALLTRIM(dwmc)+")"
      ENDDO
ENDSCAN
没理解意思，我看不到索引的内容啊

那你看个你发过的贴子来看看，我参照下，这样的数据处理，一年也只处理一次只不过量比较大

我没有系统学过VFP和编程，纯属赶鸭子上驾。

示例

Set Collate To "MACHINE" 
create cursor test (dwmc C(10),xm C(6),zm C(100),sfzh C(18))
insert into test values ("A","01","","123")
insert into test values ("B","02","","456")
insert into test values ("C","03","","789")
insert into test values ("B","04","","459")
insert into test values ("C","05","","567")
insert into test values ("D","06","","213")
insert into test values ("E","07","","124")
insert into test values ("A","08","","218")
insert into test values ("C","03","","567")
insert into test values ("A","01","","123")
Index on dwmc+xm tag xm
go top
scatter memv fields dwmc,xm
scan for recno()>1
     lncnt=recno()
     if dwmc==m.dwmc and xm==m.xm
         replace zm with alltrim(xm)+space(4)+alltrim(sfzh)
         skip -1
         replace zm with alltrim(xm)+space(4)+alltrim(sfzh)
         skip
     endif
     scatter memv fields dwmc,xm
endscan
browse
close database all

同单位同名未必是一个人

谢谢你们解决了，对于VFP我只会简单的处理，连书都没看过，纯在网上搜的。太小白了。

工作中用到VFP，建议看下VFP的帮助文件，对你今后的工作是有益的。
VFP6帮助文件：https://down.bccn.net/4396.html

谢谢!

也可以用EXCEL的VBA来完成的