专家坐堂-[求助]想做一个导入的进度提示但是不行该怎么设计呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]想做一个导入的进度提示但是不行该怎么设计呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80043)

--  作者：智友软件工作室
--  发布时间：2016/1/14 18:23:00
--  [求助]想做一个导入的进度提示但是不行该怎么设计呢？

窗口打开后提示文字无变化

Forms("正在导入").open
For i As Integer = 2 To jilushu + 1
Forms("正在导入").Controls("Label1").text = "共有资源" & jilushu & "条,已导入" & i - 2 & "条"
Next

此主题相关图片如下：qq截图20160114182218.png

--  作者：Hyphen
--  发布时间：2016/1/15 8:33:00
--
参考
http://www.foxtable.com/help/topics/1476.htm

--  作者：智友软件工作室
--  发布时间：2016/1/15 10:02:00
--

Forms("正在导入").open
For i As Integer = 2 To jilushu + 1

Forms("正在导入").Controls("Label1").text = "共有资源" & jilushu & "条,已导入" & i - 2 & "条"
Application.DoEvents()
Next

这样吗？测试无效果

--  作者：Hyphen
--  发布时间：2016/1/15 10:30:00
--
测试没有问题， Forms("正在导入")不能是模式窗口

--  作者：智友软件工作室
--  发布时间：2016/1/15 10:57:00
--
解决了谢谢我的是模式窗口

--  作者：Hyphen
--  发布时间：2016/1/15 11:14:00
--
模式窗口可以把循环代码放到窗口计时器中，循环代码执行前关闭计时器