vfp编程问题
编程时 循环用 do while .T. 老是出现嵌套错误是怎么回事？？是不是 end do的问题？？
[解决办法]
不是end do
是enddo
[解决办法]
卡机可能是你的循环次数过多或代码有死循环
[解决办法]
你的代码是什么
[解决办法]
Do While .T.
* 循环代码
Enddo
[解决办法]
这段代码是古懂级的。
Set Safety Off
Set Escape Off
Set Date Long
Do While .T.
Clear
@ 3,4 Say "大学办公系统" Font "黑体",32 Color Rgb(0,0,255)
Mess="办公物品应用管理系统"
@10,10 Say "mess" Font "黑体",38 Color Rgb(0,0,255)
Wait Timeout 10
For N=1 To Len(Mess) Step 2
@10,0 Clear
smess=Substr(Mess,1,2*N)
@10,110-4*N Say smess Font "黑体",38 Color Rgb(0,0,255)
Wait Timeout 10
For k=1 To 1E+7
Next
an = Inkey()
If an>0
Exit
Endif
Next
If an>0
Exit
Endif
Enddo
Return
