Do While Not EOF(1) 的使用

来源：百度知道 编辑：UC知道 时间：2024/06/20 14:45:32
Do While Not EOF(1)
...
if A=B then
cmdqty=100
end if
exit do
Loop

如果A=B,条件已经找到了，我想不再往下面循环了，全局变量cmdqty被赋了一个值,再退出循环,为什么我再调用cmdqty的时候,它的值还是为空?

改成这样:
Do While Not EOF(1)
...
if A=B then
cmdqty=100
exit do
end if
Loop

按你的写法，你的循环只运行一次就退出循环了。呵呵。只要把exit do放在end if前面就可以解决。

dim cmdqty as integer

private sub form1_load()
form1.autoredraw=true
command2.visible=false
end sub

private sub command1_click()
Do While Not EOF(1)
...
if A=B then
cmdqty=100
exit do
end if
Loop
command2.visible=true
end sub

private sub command2_click()
print "cmdqty=";cmdqty
end sub