主题：滚动条设计

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

按钮的代码设置为：

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