主题：[求助]做一按钮能自动从第一行刷到最后一行

A表与B表是关联表，在A表中查询出来数据后,B表的数据出来并没有计算，这样就需要手动去刷整个表的每一行数据（如果有100行数据就需要点100次鼠标，这样没有效率）才会计算出来，我想做一个按钮能一键刷整个表的所有行，求大师指点一下代码应该怎么写。

1、你鼠标点击的时候执行了什么代码？怎么计算的？

 

2、做个例子发上来说明。

For i As Integer = 1 To CurrentTable.rows.count-1
    CurrentTable.rows(i)("订单款号") = CurrentTable.rows(i-1)("订单款号")
Next

大师：

For i As Integer = 1 To CurrentTable.rows.count-1     CurrentTable.rows(i)("人工宽放") = CurrentTable.rows(i-1)("人工宽放") Next 望大师能帮忙

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:yjmg.rar

For Each r As Row In Tables("数据主表.数据明细表").Rows
    Dim Filter As String = "动作代码 = '" & r("动作代码") & "'"
    If  DataTables("动作主表").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过
        DataTables("动作主表").AppendLoad(Filter) '则追载此订单的订单明细
    End If
Next

谢谢大师