我在斑主的意思的基础上，改了一下，请兄弟们看看是否正确：

*---------*
SELECT ZFCG_SJBB
SCAN
  IF empty(采购单位) .OR. empty(项目名称) .OR. empty(产品品牌) .OR. empty(产品型号).OR. 采购数量=0 .OR. 采购预算=0
     IF empty(采购单位) .AND. empty(项目名称) .AND. empty(产品品牌) .AND. empty(产品型号).AND. 采购数量=0 .AND. 采购预算=0
        DELETE
     ELSE
        messagebox("经检测，发现数据录入不完整，请检查补充或删除！",16,"系统提示")
        Thisform.TEXT4.setfocus
        Return
     ENDIF
  ENDIF
ENDSCAN
PACK
*---------*
IF !empty(采购单位) .AND. !empty(项目名称) .AND. !empty(产品品牌) .AND. !empty(产品型号).AND. 采购数量>0 .AND. 采购预算>0
   IF messagebox("录入数据正确！保存数据吗？",4+64,"提示窗口")=6
      SELECT ZFCG_SJZK
      APPEND FROM  ZFCG_SJBB
   ENDIF
ENDIF
*----------
Thisform.QueryUnload
*----------

这样该不行吗?
SELECT ZFCG_SJBB

if empty(采购单位) .OR. empty(项目名称) .OR. empty(产品品牌) .OR. empty(产品型号).OR. 采购数量=0 .OR. 采购预算=0
 DELETE
PACK
*---------
else
 messagebox("录入数据正确！保存数据吗？",4+64,"提示窗口")=6
  SELECT ZFCG_SJZK
  APPEND FROM  ZFCG_SJBB
ENDIF
*----------
Thisform.QueryUnload
*-----------

不行的，达不到提示要求。
我的要求是：
1、全部为空值，不作任何提示就直接删除。2、有部分有值，则要求提示“输入不完整”。3、全部不为空，则提示“保存数据吗”


我在11楼的，已实现了
*---------*
SELECT ZFCG_SJBB
SCAN
  IF empty(采购单位) .OR. empty(项目名称) .OR. empty(产品品牌) .OR. empty(产品型号).OR. 采购数量=0 .OR. 采购预算=0
     IF empty(采购单位) .AND. empty(项目名称) .AND. empty(产品品牌) .AND. empty(产品型号).AND. 采购数量=0 .AND. 采购预算=0
        DELETE
     ELSE
        messagebox("经检测，发现数据录入不完整，请检查补充或删除！",16,"系统提示")
        Thisform.TEXT4.setfocus
        Return
     ENDIF
  ENDIF
ENDSCAN
PACK
*---------*
IF !empty(采购单位) .AND. !empty(项目名称) .AND. !empty(产品品牌) .AND. !empty(产品型号).AND. 采购数量>0 .AND. 采购预算>0
   IF messagebox("录入数据正确！保存数据吗？",4+64,"提示窗口")=6
      SELECT ZFCG_SJZK
      APPEND FROM  ZFCG_SJBB
   ENDIF
ENDIF
*----------
Thisform.QueryUnload
*----------

楼主的设计思路我觉得不怎么好。录入一条记录，检查一条记录，处理一条记录，这样不好吗

请参考这样的构思。

scan
do case
case aa .and. bb .and. cc
全部空数据直接删除
case aa .or. bb .or. cc
经检测，有记录数据录入不完整，请检查输入或删除
othe
数据完整，是否保存
endc
ends