我有一个导入程序，1、判断人员表中是否有已导入人员。2、判断临时表中是否有录入重复人员。3、如果正确则可导入。我的问题是：如何把1和2合并到一个判断中。1或2有错则停止程序运行，并提示。如果1或2都没有错误则进行第3.

**1、判断人员表中是否有已导入人员***************************
SELECT * from ry_temp where !EMPTY(bz) OR ry_temp.sfzh in(select sfzh FROM ry)  INTO CURSOR aaaa
SELECT aaaa
a=RECCOUNT()
dwmc=aaaa.dwmc
IF a!=0
   COPY TO &dwmc. FIELDS dwbh,dwmc,ryxm,sfzh,bz SDF
    MESSAGEBOX("身份证号有错误或数据重复，数据已导出！位置在："+(Mymllj),0+48,"居民医保警告")
   
    RETURN
ENDIF  
**2、判断临时表中是否有录入重复人员****
SELECT * from ry_temp where  ry_temp.sfzh in(select sfzh FROM ry_temp group by ry_temp.sfzh HAVING COUNT(ry_temp.sfzh)>1) INTO CURSOR ccc
SELECT ccc
b=RECCOUNT()
dwmc=ccc.dwmc
IF b!=0
   COPY TO &dwmc. FIELDS dwbh,dwmc,ryxm,sfzh SDF
    MESSAGEBOX("单位内部身份证号重复，数据已导出！位置在："+(Mymllj),0+48,"居民医保警告")
   
  RETURN
ENDIF
**3、以上如都果正确则可导入***********   
MESSAGEBOX("数据可以导入！",1+48,"居民医保管理系统")
  

没人帮忙？在线等高人指点

分太少了

设置一个变量，iserror，然后判断两者是否正确。
**1、判断人员表中是否有已导入人员***************************
iserror=.f.&&初始值
SELECT * from ry_temp where !EMPTY(bz) OR ry_temp.sfzh in(select sfzh FROM ry)  INTO CURSOR aaaa
SELECT aaaa
a=RECCOUNT()
dwmc=aaaa.dwmc
IF a!=0
   COPY TO &dwmc. FIELDS dwbh,dwmc,ryxm,sfzh,bz SDF
    MESSAGEBOX("身份证号有错误或数据重复，数据已导出！位置在："+(Mymllj),0+48,"居民医保警告")
   
    RETURN
else
iserror=.t.&&&&无错误，则改变
ENDIF  
**2、判断临时表中是否有录入重复人员****
SELECT * from ry_temp where  ry_temp.sfzh in(select sfzh FROM ry_temp group by ry_temp.sfzh HAVING COUNT(ry_temp.sfzh)>1) INTO CURSOR ccc
SELECT ccc
b=RECCOUNT()
dwmc=ccc.dwmc
IF b!=0
   COPY TO &dwmc. FIELDS dwbh,dwmc,ryxm,sfzh SDF
    MESSAGEBOX("单位内部身份证号重复，数据已导出！位置在："+(Mymllj),0+48,"居民医保警告")
   
  RETURN
else
iserror=.t.&&&&无错误，则改变
ENDIF
**3、以上如都果正确则可导入***********
if iserror=.t.&&&&无错误，则导入
MESSAGEBOX("数据可以导入！",1+48,"居民医保管理系统")
  

endif

[ 本帖最后由 月沐庭轩 于 2012-12-14 19:01 编辑 ]

4楼的办法是最基本、最简单的办法。设置一个变量，然后逐项检查，检查通不过时除了给出提示外，还改变这个变量的值，只要值被改变了，就说明至少有一项检查没有通过。

感谢月沐庭轩和hu9jj老师，事实我并不是很懂VFP，单位需要没办法。再次感谢老师帮忙