诸位大侠，看看thisform.timer1停不下来。错在哪儿呢

各位大侠，看看thisform.timer1停不下来。错在哪儿呢？
各位大侠，看看thisform.timer1停不下来。错在哪儿呢？
LOCAL t,q,p,n,f
DIMENSION d(5)
DIMENSION ArrayName[6,5]
DIMENSION  pq(5)
t=0
DO WHILE t=0
t=1
FOR k=1 to 6
        FOR m = 1 To 35   
      c(m)=m
    NEXT 
        FOR i = 1 To 5     
        f= Int(Rand() *(36-i))+1
        d(i) = c(f)
        q=c(f)
        
        FOR p=f TO 35-i
        n=c(p+1)
        c(p)=n
        NEXT
        c(36-i)=q
    NEXT 
       endfor
           NEXT   
ArrayName[k,1]=d(1)
    ArrayName[k,2]=d(2)
    ArrayName[k,3]=d(3)
    ArrayName[k,4]=d(4)
    ArrayName[k,5]=d(5)
t=1
for s=1 to 1
    for j=1 to 5
        if ABS(ArrayName(s,j)-h(s,j))>0
            t=0
            exit
        endif
    ENDFOR
    IF t=0
        exit
        endif
    ENDFOR
ENDDO
  ?? ArrayName[6,1],'@',ArrayName[6,2],'@',ArrayName[6,3],'@',ArrayName[6,4],'@',ArrayName[6,5] FONT 'Courier',44
  thisform.timer1.enabled= .f.
不起作用，明明已经符合条件了，停不下来，我错了嘛
thisform.timer1.enabled= .t.是在cmd按钮启动的，

------解决方案--------------------

把
Thisform.timer1.Enabled= .F.
放到
Timer 事件开头。
执行完 Timer 事件后，你再根据需求是否启用。
[解决办法]
你的代码能运行吗？

LOCAL t,q,p,n,f
DIMENSION d(5)
DIMENSION ArrayName[6,5]
DIMENSION  pq(5)
t=0
DO WHILE t=0
t=1
FOR k=1 to 6
        FOR m = 1 To 35   
      c(m)=m
NEXT 
        FOR i = 1 To 5     
        f= Int(Rand() *(36-i))+1
        d(i) = c(f)
        q=c(f)
        
        FOR p=f TO 35-i
        n=c(p+1)
        c(p)=n
        NEXT
        c(36-i)=q
NEXT 
endfor &&这里多了个循环结束吧？
NEXT   
ArrayName[k,1]=d(1)
ArrayName[k,2]=d(2)
ArrayName[k,3]=d(3)
ArrayName[k,4]=d(4)
ArrayName[k,5]=d(5)
t=1
for s=1 to 1
for j=1 to 5
if ABS(ArrayName(s,j)-h(s,j))>0
t=0
exit
endif
ENDFOR
IF t=0
exit
endif
ENDFOR
ENDDO
?? ArrayName[6,1],'@',ArrayName[6,2],'@',ArrayName[6,3],'@',ArrayName[6,4],'@',ArrayName[6,5] FONT 'Courier',44
thisform.timer1.enabled= .f.