我算的结果都是重复? 按13行8列为一块算,是否这样算的?
程序代码:
USE 有无重复检验记录表 ALIAS 有无重复检验记录表 IN 0 ZAP USE 原表 ALIAS 原表 IN 0 SELECT 原表 GO 2 i = 0 DO WHILE !EOF("原表") DIMENSION a原表[13, 8] COPY TO ARRAY a原表 FIELDS LIKE 列* NEXT 14 IF !EOF("原表") SKIP IN "原表" ENDIF i = i + 1 DIMENSION a原表[104] ASORT(a原表) bl = .T. dd = 0 FOR EACH ad IN a原表 IF ad == dd *? dd,ad,"运行记录号", i, "已有重复,作废" bl = .F. EXIT ELSE dd = ad ENDIF ENDFOR IF bl ? "运行记录号", i, "无重复" ENDIF ENDDO CLOSE DATABASES ALL RETURN