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
[解决办法]
For k=1 To 1E+7
Next
空循环这么多次,疯了?!
要延时也不能用这个呀?你都知道用inkey与wait了,怎么还用空循环呢?
空循环是占用CPU的,inkey及wait是不占用CPU的。
[解决办法]
这段程序是dos下的。应该用form和控件。
[解决办法]
千万不要学FOXBASE下的程序。
VFP不是FOXPRO的Windows版本,编程方法有本质的区别,现在要学面向对象程序设计。