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


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

主题：请教进度条没变化
帅哥哟，离线，有人找我吗？
CRM2013
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：315 积分：3554 威望：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


加好友 发短信
等级：幼狐 帖子：163 积分：1100 威望：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


加好友 发短信
等级：超级版主 帖子：112360 积分：572056 威望：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询