进度条使用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 进度条使用

共有2464人关注过本帖树形打印复制链接主题：进度条使用

一笑

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00

进度条使用

Post By：2016/3/14 13:55:00 [显示全部帖子]

窗口中设计一加载按钮，设计了一个“进度条”窗口，打算点击“加载”按钮后弹出该进度条窗口提示用户，接着加载ISM表，加载完成后关闭窗口，打开CR窗口代码如下

Forms("进度").open()

DataTables("ISM").LoadFilter = ""

DataTables("ISM").Load

Forms("进度").close

Forms("ISM").open()

进度窗口的afterload代码：

Dim p As WinForm.ProgressBar

p = e.Form.Controls("ProgressBar1")

p.Maximum = Tables("ISM").Rows.Count '设置最大值

p.Minimum = 0 '设置最小值

p.Value = 0 '设置当前值

实际运行时，进度条不滚动，求解，谢谢！

一笑

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00

Post By：2016/3/14 16:51:00 [显示全部帖子]

1. 就是不知道如何设置p.Value，p.Value应该等于实时已加载的行数，不知道如何写代码，求解，谢谢

主题：进度条使用