CLOSE DATABASES
 FOR i=1 TO 500    &&暂定你有500个数据表，这里的数字由你的数据表的个数决定
   DO CASE
     CASE i<10
      ii=STR(i,1)
     CASE i>=10 AND i<100
      ii=STR(i,2)
     CASE i>=100 AND i<1000
      ii=STR(i,3)
    ENDCASE
   USE xx&ii       && 使用宏替换，前面文件名相同，只有后面的数字变化
     DELETE FOR dwdm<>'140106'                  &&如果是要删除的话，用这条命令
  *  REPLACE dwdm WITH ' '  FOR dwdm<>'140106'  &&如果要代替为空的话，用下面这条命令，否则用上面的命令
    USE
 ENDFOR

CLOSE DATABASES
=ADIR(adbf,[*.dbf])

楼上的高人，请问“=ADIR(adbf,[*.dbf])”是不是等号前面还要加个变量呢。我只会点BDF简单命令，没用过程序和数组。

需要返回值时，可以写成以下格式
NUM=ADIR(ADBF,[*.DBF])
如果不需要返回值时，可以写成以下格式
=ADIR(ADBF,[*.DBF])
或者
ADIR(ADBF,[*.DBF])
视情况而定

可以看VFP的帮助文件，里面有详细的内容。
楼主的工作如果与数字有关，建议学点VFP，对你今后的工作大有益处。

求10楼高手在指导。

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

在我电脑运行中，没出现楼主的问题
DELETE FOR  FOR ALLTRIM(DWDM)!=[140106]
!=等同于<>

好了，谢谢。

什么原因

设计别出心裁，应该也能达到效果。