一般思路：从基础表中获取一个字段名 → 在data下的表中查找[FSIZE("字段名")]该字段是否存在 → 若有则删除(ALTER TABLE 表名 DROP COLUMN 字段名)。

CLOSE DATABASES 
LOCAL aName[16]
aName[ 1] = "ALLOFLAG"
aName[ 2] = "FEE"
aName[ 3] = "PROVINCE"
aName[ 4] = "CITY"
aName[ 5] = "COUNTY"
aName[ 6] = "STATION"
aName[ 7] = "SECT"
aName[ 8] = "SEQ_ID"
aName[ 9] = "SERIALNO"
aName[10] = "FK"
aName[11] = "客户ID"
aName[12] = "收件人电话"
aName[13] = "银行账号"
aName[14] = "对账单编号"
aName[15] = "分行名称"
aName[16] = "收件人手机"
cPath = "data\"
FOR i = 1 TO ADIR(aFileName, cPath + "*.dbf")
    USE (cPath + aFileName[i, 1])
    FOR ii = 1 TO AFIELDS(aZdm)
        IF ASCAN(aName, aZdm[ii, 1]) > 0
            ALTER TABLE (cPath + aFileName[i, 1]) DROP COLUMN (aZdm[ii, 1])
        ENDIF 
    ENDFOR 
    USE
ENDFOR