主题：滚动条设计

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

希望每计算5条rr滚动条更新一次，请教怎么做？谢谢！