Foxtable(狐表)用户栏目专家坐堂 → 请教进度条没变化


  共有3669人关注过本帖树形打印复制链接

主题:请教进度条没变化

帅哥哟,离线,有人找我吗?
CRM2013
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:315 积分:3548 威望:0 精华:0 注册:2012/12/10 10:38:00
请教进度条没变化  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:162 积分:1083 威望:0 精华:0 注册:2020/1/16 11:58:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:137 积分:1175 威望:0 精华:0 注册:2020/9/28 9:41:00
  发帖心情 Post By: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


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/19 14:26:00 [只看该作者]

去掉

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

 回到顶部