%%在面是我的一段小程序，为什么总是死循环啊？我找不到毛病了

use "D:\My prg\ssqjxsj_dat"
Dimension gaArrayOne(8)
GO TOP

DO while .NOT.EOF()
nHMLC=0 &&计数器清0
cZC=''
cHOME=''
COPY TO ARRAY gaArrayOne
FOR i=6 to 2 STEP -1
FOR J=i-1 TO 1 STEP -1
cZC=ALLTRIM(STR(gaArrayOne(i)-gaArrayOne(J)))
IF .NOT.(cZC $ cHOME)
nHMLC=nHMLC+1
cHOME=cHOME+' '+ cZC
? nHMLC,cHOME
DISP
ELSE
ENDIF
ENDFOR
ENDFOR
SKIP
ENDDO

我试了一下，为什么有下面这句语句就会死循环？？？
COPY TO ARRAY gaArrayOne

你将整个表拷贝到数组之后，可能记录指针又自动回到了表首，因此造成了死循环。
我看不懂你将整个表整个表都拷贝到数组，后面的SKIP还有什么意义，整个DO while又有什么作用?

谢谢你的指点，我知道怎么回事了。就该用SCATTER TO gaArrayOne就可以了。
呵呵，我是新手，有些语句还不知道正确用法。

不用谢，我们大家都在不断学习之中！