[求助]做一按钮能自动从第一行刷到最后一行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]做一按钮能自动从第一行刷到最后一行

共有1892人关注过本帖树形打印复制链接主题：[求助]做一按钮能自动从第一行刷到最后一行

Cloud

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：156 积分：1328 威望：0 精华：0 注册：2016/6/21 12:27:00

[求助]做一按钮能自动从第一行刷到最后一行 发帖心情

Post By：2017/10/18 16:45:00 [显示全部帖子]

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

Cloud

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：156 积分：1328 威望：0 精华：0 注册：2016/6/21 12:27:00

Post By：2017/10/19 14:45:00 [显示全部帖子]

Dim r1 As Row = CurrentTable.Current

CurrentTable.Position = CurrentTable.Position + 1

For Each cl As Col In CurrentTable.Cols

CurrentTable.Current("订单款号") =r1("订单款号")

Cloud

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：156 积分：1328 威望：0 精华：0 注册：2016/6/21 12:27:00

Post By：2017/10/19 18:19:00 [显示全部帖子]

大师：

这个是实例，窗口中的刷新按钮用来刷新动作明细表后能将动作明细表中要计算的数据计算出来并显示在动作明细表中

现在的刷新按钮中的代码是：

For i As Integer = 1 To CurrentTable.rows.count-1
CurrentTable.rows(i)("人工宽放") = CurrentTable.rows(i-1)("人工宽放")
Next

望大师能帮忙

Cloud

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：156 积分：1328 威望：0 精华：0 注册：2016/6/21 12:27:00

Post By：2017/10/19 18:19:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:yjmg.rar

Cloud

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：156 积分：1328 威望：0 精华：0 注册：2016/6/21 12:27:00

Post By：2017/10/20 8:47:00 [显示全部帖子]

谢谢大师

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