以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  StatusBar.ProgressBar进度条代码放在窗口AfterLoad事件中显示有问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53792)
--  作者：不倒的翁
--  发布时间：2014/7/15 15:47:00
--  StatusBar.ProgressBar进度条代码放在窗口AfterLoad事件中显示有问题
下面的代码放在窗口的AfterLoad事件中进度条读条显示进入“卡死”状态
 StatusBar.Message1= "正在统计"
StatusBar.ProgressBar.Visible =True
StatusBar.ProgressBar.Value = 0
For i As Integer = 1 To 1000
    Tables("表C").AddNew
    StatusBar.ProgressBar.Value += 1
    StatusBar.Refresh
Next
代码运行完了直接显示最终进度，没有读条功能。
因为做窗口中的表，需要加载后台比较大的数据，防止用户以为假死现象，所以需要这个。
--  作者：Bin
--  发布时间：2014/7/15 15:48:00
--  
参考帮助http://www.foxtable.com/help/topics/1476.htm
--  作者：不倒的翁
--  发布时间：2014/7/15 15:53:00
--  
以下是引用Bin在2014-7-15 15:48:00的发言：
参考帮助http://www.foxtable.com/help/topics/1476.htm

Bin版，这个我试过，Next之后加的代码，无用，读条一样是直接完成。
[此贴子已经被作者于2014-7-15 15:53:02编辑过]
--  作者：Bin
--  发布时间：2014/7/15 15:54:00
--  
上例子,
--  作者：有点甜
--  发布时间：2014/7/15 15:56:00
--  

 你完整的代码是什么？你的代码是应该运行的才对。

 

 如果是Load的话，程序是会假死的。需要变通处理。具体请上例子。
--  作者：不倒的翁
--  发布时间：2014/7/15 15:59:00
--  
应用窗口
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目8.foxdb
--  作者：不倒的翁
--  发布时间：2014/7/15 16:00:00
--  
预览窗口是能正常读条，但程序正常运行是在“应用窗口”的那种状态下。应用无效。
--  作者：不倒的翁
--  发布时间：2014/7/15 16:02:00
--  
我后台有张查询表需要后台加载一定的数据集合进来，并且根据查询表数据条集合内容重新组合生成新的数据条目添加到临时表中。所以需要这个。
--  作者：有点甜
--  发布时间：2014/7/15 16:04:00
--  

 

[此贴子已经被作者于2014-7-15 16:04:39编辑过]
--  作者：不倒的翁
--  发布时间：2014/7/15 16:05:00
--  
以下是引用有点甜在2014-7-15 16:04:00的发言：

StatusBar.Message1= "正在添加"
StatusBar.ProgressBar.Visible =True
StatusBar.ProgressBar.Value = 0
StatusBar.ProgressBar.Maximum = 1000
StatusBar.Refresh
For i As Integer = 1 To 1000
    Tables("表C").AddNew
    Application.DoEvents()
    StatusBar.ProgressBar.Value += 1
    StatusBar.Refresh
Next

StatusBar.Message1= "完成"

甜版，例子中的代码是这样写的。但应用窗口还是一样。