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() '没有这个，无法展示进度
Next
1、使用模式窗口代码写在afterload，根据代码传递处理进度
存在问题：要等代码执行完毕后，窗体展示，一闪而过
代码写在执行按钮，调用模式窗口，代码无法继续执行。
2、使用独立窗体
进度展示没有问题，但是窗体无法最前端保持，鼠标容易点到其他地方被遮盖
3、使用多线程等待窗体（窗口遮罩）
进度条无法展示（可能行，至少改造比较复杂）
我想求助大神，还有没有好点的方案推荐？
[此贴子已经被作者于2019/7/31 16:29:24编辑过]
加好友 
发短信
Post By：2019/7/31 15:58:00 [显示全部帖子]
