close all
use 20150324.dbf
INDEX on xm TAG xm
INDEX on dwmc TAG dwmc
go top
x=dwmc
y=xm
DO WHILE !eof()
SKIP
if ALLTRIM(x)==ALLTRIM(dwmc) AND ALLTRIM(y)==ALLTRIM(xm)
REPLACE zm WITH ALLTRIM(xm)+"("+ALLTRIM(dwmc)+")"
endif
x=dwmc
y=xm
ENDDO
这样行不行呢?
use 20150324.dbf
INDEX on xm TAG xm
INDEX on dwmc TAG dwmc
go top
x=dwmc
y=xm
DO WHILE !eof()
SKIP
if ALLTRIM(x)==ALLTRIM(dwmc) AND ALLTRIM(y)==ALLTRIM(xm)
REPLACE zm WITH ALLTRIM(xm)+"("+ALLTRIM(dwmc)+")"
endif
x=dwmc
y=xm
ENDDO
这样行不行呢?