- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]进度条 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1238)
-- 发布时间：2008/11/25 11:03:00
-- [求助]进度条
此主题相关图片如下：进度.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:退耕还林管理系统.rar |
想作一进度条显示筛选汇总的进度，按钮“汇总进度”要执行“筛选汇总”的代码。
-- 发布时间：2008/11/25 13:13:00
--
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = MainTable.Rows.Count \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值
For i As integer = 0 To MainTable.Rows.Count - 1
i = i+1
If i Mod 100 = 0
p.Value = i \'当前值为已经完成的行数
End If
Next
-- 发布时间：2008/11/25 16:00:00
--
这是例子，难道就这么简单与程序没什么关系，不会吧！
-- 发布时间：2008/11/25 16:19:00
--
这个用不了进度条的，因为耗时的就是一行代码：
t.Subtotal()
你没有办法知道进度，如果写进度条代码？
通常自己编写代码，逐行处理记录的时候没，才可以用进度条，因为自己可以知道运行的进度。
-- 发布时间：2008/11/25 16:22:00
--
除非我在subtotal中加入代码，在状态拦显示一个进度条。
否则你是没有办法给汇总模式的生成加上进度条的。
我考虑改一下，给subtotal加上一个参数，是否在状态拦显示进度条。
-- 发布时间：2008/11/25 16:32:00
--
不选任何条件时筛选汇总较慢，象死机一样，所以加个进度条表示正在运行，看起来舒服些，没有它完全可以。
-- 发布时间：2008/11/25 16:33:00
--
我明白，所以考虑在subtotal加上进度条显示功能。
-- 发布时间：2008/11/25 16:38:00
--
用个烂办法
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:退耕还林管理系统.rar |
-- 发布时间：2008/11/25 16:56:00
--
是个好办法，代码也看得懂！