以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何实现按某键或任意键暂停、终止循环或退出程序?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149504)

--  作者:zxlid
--  发布时间:2020/5/4 21:02:00
--  [求助]如何实现按某键或任意键暂停、终止循环或退出程序?
各位大师,请问如何实现按某键或任意键暂停、终止循环或退出程序?本人在处理几十万的记录时,用到循环,中途想退出,但程序无法停下,每次只用任务管理器强制终止,实在没则,郁闷的要命。
--  作者:有点蓝
--  发布时间:2020/5/5 9:40:00
--  
可以是可以,但是会让循环的效率低上好几倍
比如:

循环按钮
vars("执行")  = true
for ia s integer = 1 to 1000000
if vars("执行") = false then exit for
application.doevents
其它执行代码
next

暂停按钮
vars("执行")  = false


--  作者:zxlid
--  发布时间:2020/5/5 11:01:00
--  
收到,谢谢老师!