楼主没有回答清楚,且当作是数值型的吧:
CLEAR
CLEAR
SET DEFAULT TO I:
n=ADIR(alj,"i:\xx*.dbf")
m=ADIR(alk,"i:\dx*.dbf")
FOR i=1 TO n USE alj(i,1) *REPLACE dwdm with "" for ALLTRIM(dwdm)="140106" REPLACE dwdm with 0 for dwdm<>140106 USE
NEXT
FOR i=1 TO m USE alk(i,1) *REPLACE dwdm with "" for ALLTRIM(dwdm)="140106" REPLACE dwdm with 0 for dwdm<>140106 USE
NEXT
CLOSE DATABASES
=ADIR(ADBF,[*.DBF])
FOR I=1 TO ALEN(ADBF,1)
USE (ALLTRIM(ADBF(I,1)))
IF TYPE([DWDM])!=[U]
REPLACE DWDM WITH [] FOR ALLTRIM(DWDM)!=[140106]
*-*整条记录
*DELETE FOR FOR ALLTRIM(DWDM)!=[140106]
*PACK
ENDIF
USE
ENDFOR