以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  ProgressBar  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154322)

--  作者:yetle
--  发布时间:2020/9/11 9:21:00
--  ProgressBar
假如表中有:订单量  已完成数量 两列,数据表通过sql加载进来
ProgressBar能不能通过计划管理每隔固定时间刷新数据,进度条长度根据已完成数量的变化显示



Dim p As WinForm.ProgressBar
p = e.Form.Controls(
"ProgressBar1")
p.Maximum = 
订单量 \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 已完成数量
 \'设置当前值

这种形式怎么用代码表示

--  作者:有点蓝
--  发布时间:2020/9/11 9:34:00
--  
比如:

加载按钮:
Dim p As WinForm.ProgressBar
p = e.Form.Controls(
"ProgressBar1")
p.Maximum = 
tables("a").current("订单量") \'设置最大值
p.Minimum = \'设置最小值
其它加载代码

计划管理
Dim p As WinForm.ProgressBar
p = e.Form.Controls(
"ProgressBar1")
p.Value = tables("a").current("已完成数量") \'设置当前值