有若干DBF表，xx1,xx2,xx3,…xx5,dx1,dx2…等若干不同名的表。. 所有表都有一个相同字段dwdm，想批量删除该字段下值不是140106的数据，求高手指导。   要用编程序吗，我是工作上用的，不是作业。由于工作有变动数据要移交，该字段下别的值的数据，是其他部门的，按其他部门要求，数据便留给新接班者。求高人指点，感谢。

[ 本帖最后由 bdlzh0312 于 2013-1-3 17:01 编辑 ]

先找出你的DBF表名的命名规律。是xx1……xxn、dx1……dxn吗？只有这两种命名？
dwdm字段是数值型的吗？

[ 本帖最后由 qjbzjp 于 2013-1-3 17:11 编辑 ]

是的，DWDM 是字符型的。

[ 本帖最后由 bdlzh0312 于 2013-1-3 17:14 编辑 ]

表的数量不多的话用手工逐个表删除会更快捷、安全些。

手工操作步骤：
use 表
delet for dwdm<>140106 all

表很多呀。有上百个，手工，有点慢。

楼主没有回答清楚，且当作是数值型的吧：
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


[ 本帖最后由 qjbzjp 于 2013-1-3 18:29 编辑 ]

是删除整条记录，还是该字段下值不是140106的数据

不好意思，正好反了应该是：
    REPLACE dwdm with 0 for dwdm<>140106

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

[ 本帖最后由 sdta 于 2013-1-3 18:34 编辑 ]