以下是引用lihuibiaozs在2015-4-19 16:11:42的发言：

DO WHILE EOF()
         DO xjqs
         DO ssqs
      LOOP
     ENDDO
 
上述循环体中是对表的遍历，但缺了对表中记录行的动作。如SKIP。。。

以下是引用hu9jj在2015-4-20 07:43:41的发言：


并没有“为止”，而是无限循环下去。

以下是引用吹水佬在2015-4-20 11:06:31的发言：

 
可以的，不要忘记还有两个过程：
CREATE CURSOR dd (f1 I)
DO WHILE EOF()
    DO ssqs
    DO xjqs
    LOOP
ENDDO
? "出来了"
 
PROCEDURE ssqs
        *直到有记录并记录指针指向有效记录
    APPEND BLANK
ENDPROC
 
PROCEDURE xjqs
ENDPROC

以下是引用l87233203在2015-4-19 15:22:31的发言：

 
IF FOUND()
   IF s>=k*1.06
      A1=K
      DO ssqs
      DO WHILE EOF()
         DO xjqs
         DO ssqs
      LOOP
     ENDDO
   ELSE  
      A2=K      
      DO xjqs
      DO WHILE EOF()
           
         DO ssqs
         
         DO xjqs
         LOOP
      ENDDO  
   ENDIF  
ELSE
   RETURN
ENDIF