思路：
1、索引(DWMC+XM)
2、SCAN ENDSCAN扫描(DWMC相同并且XM相同，替换ZM字段)

又是從Excel中導入的數據

12成是

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
这样写好像没有输出啊，怎么搞

SKIP不對應FOUND的！你的代碼根本就沒有查找動作。

[ 本帖最后由 TonyDeng 于 2015-3-24 20:34 编辑 ]

VFP数据表名称不能以数字开头

上传数据表看看
如果有N条记录中DWMC与XM同时相同，是不是ZM字段都要替换

[ 本帖最后由 sdta 于 2015-3-24 20:37 编辑 ]

用dwmc+xm做索引，那樣你要找的數據都會排在一起，然後，你自己也知道了。不明白的話，建立我說的索引之後，browse看一看效果就懂了。

如果數據記錄的輸入不規範，比如空格問題，事先用alltrim()處理一下記錄再做索引。