vfp编程问题

[fy514]

编程时 循环用 do while .T. 老是出现嵌套错误是怎么回事？？是不是 end do的问题？？

[fy514]

请各位能够指点下 还有就是执行程序时老是卡机？？

[taohua300]

不是end do
是enddo

[taohua300]

卡机可能是你的循环次数过多或代码有死循环

[wwwwb]

你的代码是什么

[十豆三]

Do While .T.
* 循环代码
Enddo

[fy514]

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(10)
FOR n=1 TO LEN(mess) STEP 2
@10,0 clear
smess=subs （mess,1,2*n)
@10,110-4*n say smess font "黑体",38 color RGB(0,0,255)
wait(10)
FOR k=1 TO 1E+7
next
an = INKEY()
IF an>0
EXIT
endif
next
IF an>0
EXIT
endif
ENDDO
RETURN （这个是代码 错误的不少呢 求解）

[aabiao]

For k=1 To 1E+7
Next
空循环这么多次，疯了？!
要延时也不能用这个呀？你都知道用inkey与wait了，怎么还用空循环呢？
空循环是占用CPU的，inkey及wait是不占用CPU的。

[十豆三]

这段代码是古懂级的。

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

[fy514]

这个刚学 不太懂 我的程序和8180的差不多 为什么你的行 我的不行呢？？程序该怎么学呢？？

[aabiao]

千万不要学FOXBASE下的程序。 VFP不是FOXPRO的Windows版本，编程方法有本质的区别，现在要学面向对象程序设计。

[捧剑者]

这段程序是dos下的。应该用form和控件。