1,079
社区成员
发帖
与我相关
我的任务
分享PB如何实现Delphi中类似Application.ProcessMessage或VB中Do Events这样的功能？
在窗体的按钮中增加下面的代码：
declare cursor1 CURSOR for Select Table_Name,Column_Name from all_col_comments;
open cursor1;
do while (sqlca.sqlcode=0)
i=i+1
fetch cursor1 into :TName, :CName;
loop
close cursor1;
我希望在Do while循环时，窗体仍能响别别的消息，类似Application.ProcessMessage或VB中Do Events这样的功能，就是让应用程序中断当前正在处理的事件，去响应消息队列中的有关消息。在PB中如何实现？
declare cursor1 CURSOR for Select Table_Name,Column_Name from all_col_comments;
open cursor1;
do while (sqlca.sqlcode=0)
i=i+1
fetch cursor1 into :TName, :CName;
loop
close cursor1;
我希望在Do while循环时，窗体仍能响别别的消息，类似Application.ProcessMessage或VB中Do Events这样的功能，就是让应用程序中断当前正在处理的事件，去响应消息队列中的有关消息。在PB中如何实现？
...全文
请发表友善的回复…
发表回复
永生天地 2010-07-01
- 打赏
- 举报
在while里加yield()
chengg0769 2010-07-01
- 打赏
- 举报
yield()释放消息。看书去。
