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
加好友 
发短信
Post By：2021/1/19 14:17:00 [显示全部帖子]
