*-----------*
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“、完全合格则会提示我“录入数据正确！保存数据吗”，请兄弟们帮助我看看。

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

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

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


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

那就是你在1楼的程序不能表达你的意思。
*事件代码(假如该命令按钮完成录入功能)
IF empty(ThisForm.Text1.Value) OR;
   empty(ThisForm.Text2.Value) OR;
   empty(ThisForm.Text3.Value) OR;
   empty(ThisForm.Text4.Value) OR;
   empty(ThisForm.Text5.Value) OR;
   empty(ThisForm.Text6.Value)
   *Text1-Text6分别录入的是：采购单位、项目名称、产品品牌、产品型号、采购数量、采购预算
  messagebox("经检测，有记录数据录入不完整，请检查输入或删除！",16,"系统提示")
  Thisform.TEXT1.setfocus
ELSE
  IF messagebox("录入数据正确！保存数据吗？",4+64,"提示窗口")=6
    Insert into ZFCG_SJZK values (ThisForm.Text1.Value,...)
  ENDIF
ENDIF
*----------
Thisform.QueryUnload
*-----------

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

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

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

这么说，2楼的程序是对的了。

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

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


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

不完整的数据直接删除掉了，没有提示；留下的全是正确的数据，就有提示。正确的数据让保存就保存了，不让保存的不予理睬，但都不提示

谢谢。我再试试看

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

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

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