以文本方式查看主题

-  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=47273)
--  作者：asionwong
--  发布时间：2014/3/7 14:31:00
--  滚动条设计

For Each rr As Row In Tables("窗口_table1").Rows
    rr("已付金额")= DataTables("回款明细").SQLCompute("Sum(实收金额)","出货单号 = \'"& rr("出货单号")&"\'")+DataTables("回款明细").SQLCompute("Sum(短缺金额)","出货单号 = \'"& rr("出货单号")&"\'")
Next

 

希望每计算5条rr滚动条更新一次，请教怎么做？谢谢！
--  作者：狐狸爸爸
--  发布时间：2014/3/7 14:35:00
--  

窗口加个按钮，再加个滚动条。

按钮的代码设置为：

 

Dim cnt as integer
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = Tables("窗口_table1").Rows.Count\'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值
For Each rr As Row In Tables("窗口_table1").Rows
    rr("已付金额")= DataTables("回款明细").SQLCompute("Sum(实收金额)","出货单号 = \'"& rr("出货单号")&"\'")+DataTables("回款明细").SQLCompute("Sum(短缺金额)","出货单号 = \'"& rr("出货单号")&"\'")
  cnt = cnt +1
   if cnt mod 5 = 0 Then
        p.value = cnt
   End If
Next

[此贴子已经被作者于2014-3-7 14:35:39编辑过]