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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教进度条没变化  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151501)

--  作者：CRM2013
--  发布时间：2020/6/25 11:50:00
--  请教进度条没变化
窗口做了个进度条，

Dim skjd As WinForm.NumericComboBox = e.Form.Controls("skjd") ，绑定了收款进度值，如0.68 0.30等，数据列为双精度
Dim p As WinForm.ProgressBar = e.Form.Controls("ProgressBar1")
Dim jd As Double
Dim pv As Integer
jd = skjd.Value
pv = 100 * jd
p.Maximum = 100
p.Minimum = 0
p.Value = pv

--  作者：linyunu1
--  发布时间：2020/6/26 10:02:00
--

窗口AfterLoad
Dim p As WinForm.ProgressBar = e.Form.Controls("ProgressBar1")
p.Maximum = 100
p.Minimum = 0

控件ValueChanged

Dim skjd As WinForm.NumericComboBox = e.Sender
Dim p As WinForm.ProgressBar = e.Form.Controls("ProgressBar1")
Dim jd As Double
Dim pv As Integer
jd = skjd.Value
pv = 100 * jd
p.Value = pv

--  作者：huaziqiao1976
--  发布时间：2021/1/19 14:17:00
--

With DataTables("信息比对")
.LoadTop = e.Form.Controls("ComboBox1").Value
.LoadPage = 0
.Load()
e.Form.Controls("NumericComboBox5").Value = (.LoadPage + 1)
e.Form.Controls("NumericComboBox4").Value = .TotalPages
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = .TotalPages
p.Minimum = 0 \'设置最小值
p.Value = e.Form.Controls("NumericComboBox5").Value \'设置当前值
Dim pv As Integer
pv = .TotalPages * e.Form.Controls("NumericComboBox5").Value
p.Value = pv
End With

--  作者：有点蓝
--  发布时间：2021/1/19 14:26:00
--
去掉

Dim pv As Integer
pv = .TotalPages * e.Form.Controls("NumericComboBox5").Value
p.Value = pv