一个循环坎套问题

一个循环坎套问题
  
  表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
          运行正常，所有记录正常写入。
         
          请各位高手帮忙看看指出问题所在处，先谢了。