想删除字段中有指定数值的记录，但不成功，请教先生指点，谢谢（代码及表在附件中 ）

把表中各字段的数据类型全部改为数值型(数据类型为整型，数据清除后，仍然显示0，与原有数据中的0不好区分)

VFP9代码
Select * From 表3 Into Cursor Test ReadWrite
Scan
   For lnI=1 To Fcount()
       Blank Fields (Field(lnI)) For InList(Evaluate(Field(lnI)),2,-1,-3,-5,-9)
   EndFor 
EndScan
Browse 

先生您好，这样运行下来想删除的（对有指定数值的记录）记录（整一行）还是没有删除啊（原100条记录，拷贝后的还是100条记录），请先生指教，谢谢

先生代码我修改了下，运行没通过是否是我修改的缘故，代码如下

Select * From 表3 Into Cursor Test ReadWrite
Scan
   For lnI=1 To Fcount()
       Blank Fields (Field(lnI)) For InList(Evaluate(Field(lnI)),2,-1,-3,-5,-9)
   EndFor
ENDSCAN
SELECT TEST
COPY TO TEST
USE TEST
Browse

哦，先生我核对了下表3和表TEST，运行您的代码后是将含有2、-1、-3、-5、-9的字段中的值成为“0”了，而我的要求是想要：若某一条记录中含有2、-1、-3、-5、-9中的一个或几个时，将整条记录（或叫做一行）删除掉，这样运行下来表TEST的记录数肯定小于表3的记录数（因表3的字段值中有许多的士、-1、等啊），谢谢先生

可将清零改为打删除标记。
或写个检测删除条件函数，执行DELETE ALL：

CLEAR
SET TALK OFF
SET SAFETY OFF
USE 表3.dbf
COPY TO 表4.dbf
USE 表4.dbf
DELETE ALL FOR _Delete(FCOUNT())
PACK
GO TOP 
BROWSE
USE
RETURN

FUNCTION _Delete(nFCount)
    LOCAL i
    FOR i = 1 TO nFCount
        IF INLIST(EVALUATE(FIELD(i)), -1,-3,-5,-9,2) 
            RETURN .T.
        ENDIF
    ENDFOR
    RETURN .F.
ENDFUNC

[ 本帖最后由 吹水佬 于 2015-3-24 21:22 编辑 ]

Select * From 表3 Into Cursor Test ReadWrite
Delete For InList(Evaluate(Field(lnI)),2,-1,-3,-5,-9)
Browse For Deleted()=.T.

要学会举一凡三，多看看帮助文件相关的内容