回复 30楼 reedwu
![](zzz/editor/img/code.gif)
CLOSE TABLES USE 1a0001.DBF ALIAS A T1=seconds() BLANK ALL FIELDS K,D FOR I=1 TO RECCOUNT()-8 SELECT SHHIGH,SHLOW FROM 1A0001 WHERE BETWEEN(RECNO(),I,I+8) INTO ARRAY AA =ACOPY(AA,BB) =ASORT(BB) && BB(1,2)为最小值,BB(9,1)为最大值 SELECT A REPLACE K WITH BB(1,2),D WITH BB(9,1),TRIX WITH (ABS(shclose-k)/ABS(d-k))*100 FOR RECNO()=I+8 ENDFOR ?"运行时间: ",seconds()-T1," 秒"
![](images/smilies/emot/em13.gif)
[ 本帖最后由 sdta 于 2012-3-16 15:20 编辑 ]
![](/skin/img/sigline.gif)
坚守VFP最后的阵地