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

窗口中设计一加载按钮，设计了一个“进度条”窗口，打算点击“加载”按钮后弹出该进度条窗口提示用户，接着加载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 '设置当前值

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

主题：进度条使用