close all
use 20150324.dbf
x=dwmc
y=xm
INDEX on xm TAG xm
INDEX on dwmc TAG dwmc
SCAN FOR ALLTRIM(x)==ALLTRIM(dwmc) AND ALLTRIM(y)==ALLTRIM(xm)
      DO WHILE FOUND()
         REPLACE zm WITH ALLTRIM(xm)+"("+ALLTRIM(dwmc)+")"
         SKIP
      ENDDO
ENDSCAN
这样写好像没有输出啊，怎么搞

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和编程，纯属赶鸭子上驾。

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

谢谢!