该代码运行时间太长，不知道是什么原因？

[xlcself2011]

表mzinj1记录数有3214629，cursorfsdrg2筛选出大概15000条左右的记录。不知道是代码的问题还是什么？运行很久（至少半小时）都还是出不来结果，请大侠们给指导下。谢谢。
SELECT mzinj1
GO BOTTOM
recnum=RECNO()
GO TOP
SELECT mzinj1
SELECT pno FROM (SELECT pno,COUNT(pno) as pnonum FROM mzinj1 WHERE pno in (SELECT pno FROM mzinj1 WHERE drgcode LIKE "P021%") GROUP BY pno ORDER BY 2 DESC ) as myquery WHERE pnonum<=2 INTO CURSOR fsdrg2
SELECT fsdrg2
GO BOTTOM
fsrecnum=RECNO()

FOR i=1 TO fsrecnum
SELECT fsdrg2
GO i
fspno=fsdrg2.pno
*!* SELECT mzinj1
*!* DELETE FOR pno=fspno 用这个也是运行很久都不结果。
FOR j=1 TO recnum
SELECT mzinj1
mzinjpno=mzinj1.pno
IF fspno=mzinjpno
DELETE
ENDIF
ENDFOR
ENDFOR
MESSAGEBOX("OK!")

[都市夜猫]

看上去，两条语句就够了，合成为一条也可以

SELECT pno FROM mzinj1 WHERE drgcode LIKE "P021%" ;
    GROUP BY pno HAVING COUNT(pno) <= 2 INTO CURSOR fsdrg2
 
DELETE mzinj1 FROM fsdrg2 WHERE mzinj1.pno = fsdrg2.pno

[o0风箫吟0o]

强大1

[xlcself2011]

引用 2 楼 dkfdtf 的回复:

看上去，两条语句就够了，合成为一条也可以

SELECT pno FROM mzinj1 WHERE drgcode LIKE "P021%" ;
    GROUP BY pno HAVING COUNT(pno) <= 2 INTO CURSOR fsdrg2
 
DELETE mzinj1 FROM fsdrg2 WHERE mzinj1.pno = fsdrg2.pno

是的。后来我同not in 就只要100多秒就可以了。谢谢猫大侠。