一个循环坎套问题
  
  表A
  三个字段 为A1,A2 A3。A1为日期型，A2,A3为字符型。
  A1 A2均有重复数据，A3是A1的日排序，无重复数据。
  现根据 A1和A2写入A3

  dA1=date() 此日期A表记录无
  
   SELE 表A
   SCAN FOR A2="AAA"
       if dA1=A1
          loop
       else
          dA1=A1
       endif
         n1=1
           scan for A1= dA1 AND A2="AAA"
           cA3=PADL(ALLTRIM(STR(n1,4)),4,"0")
           
              REPLACE A3 WITH cA3
            n1=n1+1
          endscan
      endscan
           
       程序运行后，只写入第一条符合条件的A3.
       也就是说外循环只运行一次。
      
       为找出问题，把程序拆分如下:
      
        dA1=date()  此日期A表记录无
          SELE 表A
           SCAN FOR A2="AAA"
           if dA1=A1
                loop
           else
              dA1=A1
           endif
           ? A1
          endscan
                  运行正常，所有A2="AAA" 的A1记录均正常显示。
     
      然后单独运行内循环
      
        dA1=某个日期(---此日期A表有记录)。
         n1=1
           scan for A1= dA1 AND A2="AAA"
           cA3=PADL(ALLTRIM(STR(n1,4)),4,"0")
           
              REPLACE A3 WITH cA3
            n1=n1+1
          endscan
          运行正常，所有记录正常写入。
         
          请各位高手帮忙看看指出问题所在处，先谢了。
         

例举几条数据记录，根据A1和A2的什么写入想要的A3结果

第2个scan语句直接将指针移动到最后了。
SELE 表A
irecc=recc()
   SCAN FOR A2="AAA"
       if dA1=A1
          loop
       else
          dA1=A1
       endif
    irecno=min(recno()+1,irecc)
         n1=1
           scan for A1= dA1 AND A2="AAA"
           cA3=PADL(ALLTRIM(STR(n1,4)),4,"0")
           
              REPLACE A3 WITH cA3
            n1=n1+1
          endscan
go irecno
      endscan
没有数据测试过。

已解决，谢谢。

对的。想了好久才明白。谢谢！

我是直接把外循环改成了 do while 语句，简单明了。

这段代码已经收藏了。再次谢谢！

看下置顶的帖子年限限制