#2
sdta2023-12-27 14:17
|
程序代码:
GOTO TOP
DO WHILE .NOT. EOF()
S=0
FOR k=1 TO ALEN(B)+1
IF k=ALEN(B)+1
REPLACE dpth WITH k
ELSE
Y=B(k)
S=S+&Y
?"S=",S
IF S<(yxkc_All+ykzt_all)
LOOP
ELSE
REPLACE dpth WITH IIF(ISNULL(k-1+1-(S-yxkc_all-ykzt_all)/&Y)=.T.,0,(k-1+1-(S-yxkc_all-ykzt_all)/&Y)) FOR &Y>0
EXIT &&这里使用exit到底是只跳出for..endfor循环,还是跳出了do while... enddo 的循环
ENDIF
ENDIF
ENDFOR
SKIP +1
ENDDO
DO WHILE .NOT. EOF()
S=0
FOR k=1 TO ALEN(B)+1
IF k=ALEN(B)+1
REPLACE dpth WITH k
ELSE
Y=B(k)
S=S+&Y
?"S=",S
IF S<(yxkc_All+ykzt_all)
LOOP
ELSE
REPLACE dpth WITH IIF(ISNULL(k-1+1-(S-yxkc_all-ykzt_all)/&Y)=.T.,0,(k-1+1-(S-yxkc_all-ykzt_all)/&Y)) FOR &Y>0
EXIT &&这里使用exit到底是只跳出for..endfor循环,还是跳出了do while... enddo 的循环
ENDIF
ENDIF
ENDFOR
SKIP +1
ENDDO