CLOSE DATABASES
SET NEAR On
USE cjk IN 0
USE pfb IN 0 EXCLUSIVE
SELECT pfb
INDEX on ALLTRIM(xm)+ALLTRIM(xb)+STR(cj,10,2) TAG cj
SET ORDER TO CJ
SELECT cjk
SCAN =SEEK(ALLTRIM(zx)+ALLTRIM(xb)+STR(cj,10,2),'pfb') REPLACE fs WITH pfb.fs IN cjk
ENDSCAN
CLOSE DATABASES