[求助]数据处理进度显示问题【已解决】 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim i As Integer

Dim s As Integer =Tables("Person_info").Rows.count

For Each r As Row In Tables("Person_info")

i=i+1

Functions.Execute("refreshTrainDate",r("bmID"),False) ‘处理数据的函数

Vars("ProRate") =i/s ’进度传递，通过窗体计时器展示进度

Application.DoEvents() '没有这个，无法展示进度

1、使用模式窗口

代码写在afterload，根据代码传递处理进度

存在问题：要等代码执行完毕后，窗体展示，一闪而过

代码写在执行按钮，调用模式窗口，代码无法继续执行。

2、使用独立窗体

进度展示没有问题，但是窗体无法最前端保持，鼠标容易点到其他地方被遮盖

3、使用多线程等待窗体（窗口遮罩）

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73365

进度条无法展示（可能行，至少改造比较复杂）

我想求助大神，还有没有好点的方案推荐？

[此贴子已经被作者于2019/7/31 16:29:24编辑过]

主题：[求助]数据处理进度显示问题【已解决】