*-----------*
SELECT ZFCG_SJBB
GO TOP
IF RECCOUNT()>1
   DO WHILE !EOF()
      IF empty(采购单位)=.T..OR.empty(项目名称)=.T..OR.empty(产品品牌)=.T..OR.empty(产品型号)=.T..OR.采购数量=0.OR.采购预算=0
         DELETE
         PACK
      ELSE
         messagebox("经检测，有记录数据录入不完整，请检查输入或删除！",16,"系统提示")
         Thisform.TEXT4.setfocus
         RETURN .T.   
      ENDIF
      SKIP
   ENDDO
ENDIF
*---------
GO TOP
IF empty(采购单位)=.F..AND.empty(项目名称)=.F..AND.empty(产品品牌)=.F..AND.empty(产品型号)=.F..AND.采购数量>0.AND.采购预算>0
   msg=messagebox("录入数据正确！保存数据吗？",4+64,"提示窗口")
   IF msg=6
      SELECT ZFCG_SJZK
      APPEND FROM  ZFCG_SJBB
   ENDIF
ENDIF
*----------
Thisform.QueryUnload
*-----------



我的意思：1、采购单位、项目名称、产品品牌、产品型号、采购数量、采购预算等字段为空值，则直接删除。2、以上几个字段为合格的值，则提示是否保存？现在我输入以上字段的一个值，不提示我“经检测，有记录数据录入不完整，请检查输入或删除3“、完全合格则会提示我“录入数据正确！保存数据吗”，请兄弟们帮助我看看。

试了一下，还是不对呀。几个字段全为空，也提示我“录入数据正确！保存数据吗“。

我的意思：1、以上几个字段，只要有一个不输入就提示：“输入的数据不完整”不能退出表单，回到录入表。2、如果都不输入数据，则不用任何提醒，就直接删除后退出表单。3、数据完全正确，则提示“是否要保存”。是---保存退出，否---不保存退出


[ 本帖最后由 YZCZWCB 于 2010-1-10 22:56 编辑 ]

首先谢谢版主。我是没表达清我的意思。我首先要告诉你，我在录入数据时，先向备用库录入，最后按“退出”按钮时，需要以上的检测数据的完整，再把备用库有数据加在总库的后面。也是为了防止把主库的数据破坏，或者防止不完整的数据直接录入到主库中。

因此，我在录入数据时，在备用库中会有几条记录，最后一起检测备用库的数据完整性，再加到主库中。

这也许是我的思路不正确，别见笑

经实际试了一下，还是不对，有2个情况：

1、几个字段全为空，也提示我“录入数据正确！保存数据吗“。我要的是，直接删除不用提示。
2、在这几个字段中，任意输入一个字段的值，其他的不输入，应该说是数据不完整，应该提示：“输入的数据不完整”，不但不提示，反而提示“录入数据正确！保存数据吗“。


[ 本帖最后由 YZCZWCB 于 2010-1-10 23:34 编辑 ]

谢谢。我再试试看

经测试：现在是不完整的数据和全部空数据都直接删除，只作“数据完整，是否保存？”的提示，这没意义。无论点“是”与“否”都不保存，只有数据完整时，点击“是”与“否”才有意义。

这样一来给操作者带来不便，一不小心录入了一个不完整的记录，以为录入完毕并保存，而实际上程序设置没有保存，这不好。还是应该有一个提示，让操作者去删除或补充完整。

请斑主再按我的意思想想办法，谢谢。

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

*---------*
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
*----------

不行的，达不到提示要求。
我的要求是：
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
*----------