还是那个老问题,没弄明白
设置一个变量,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
以上解决方法不能满足我的判断
要的是四个判断:
1、判断**1有错误,则拷贝出,继续判断**2有错误,则拷贝出,提示:身份证号有错误或数据重复/单位内部身份证号重复,程序停止。
2、判断**1有错误,则拷贝出,继续判断**2无错误,提示:身份证号有错误或数据重复,程序停止。
3、判断**1无错误,继续判断**2有错误,则拷贝出,提示:单位内部身份证号重复,程序停止。
4、判断**1无错误,继续判断**2无错误,由运行**3
[ 本帖最后由 shyibaoban 于 2012-12-15 15:51 编辑 ]