发信人: foxzz(zz)
整理人: hunter__fox(2002-03-16 22:15:51), 站内信件
|
请参考：
假设表为hlpr,考号为archivesnm
&& 得到重复考号
sele *,.F. AS CHECKOK ；
from hlpr ；
having count(archivesnm)>=2 ；
group by archivesnm ；
into dbf t_geterr
LOCAL M_ARCHIVESNM,M_RECN
SET ORDER TO 0
&& 将重复考号的记录添加到testerr表中
SCAN FOR CHECKOK<>.T.
M_SAVERECN=RECN()
M_ARCHIVESNM=ARCHIVESNM
M_RECN=RECN
REPL CHECKok WITH .T.
SELE HLPR
SET ORDER TO ARCHIVESNM
LOCA FOR ARCHIVESNM=M_ARCHIVESNM
DO WHILE FOUND()
IF RECN()<>M_RECN
SCATTER MEMVAR MEMO
M.RECN=RECN()
M.CHECKOK=.T.
INSERT INTO t_geterr FROM MEMVAR
ENDIF
CONT
ENDDO
SELE t_geterr
GO M_SAVERECN
ENDSCAN
|
|