- 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=108228)
-- 发布时间：2017/10/18 16:45:00
-- [求助]做一按钮能自动从第一行刷到最后一行
A表与B表是关联表，在A表中查询出来数据后,B表的数据出来并没有计算，这样就需要手动去刷整个表的每一行数据（如果有100行数据就需要点100次鼠标，这样没有效率）才会计算出来，我想做一个按钮能一键刷整个表的所有行，求大师指点一下代码应该怎么写。
-- 发布时间：2017/10/18 19:37:00
--
1、你鼠标点击的时候执行了什么代码？怎么计算的？
2、做个例子发上来说明。
-- 发布时间：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("订单款号")
Next
-- 发布时间：2017/10/19 16:15:00
--
For i As Integer = 1 To CurrentTable.rows.count-1
CurrentTable.rows(i)("订单款号") = CurrentTable.rows(i-1)("订单款号")
Next
-- 发布时间：2017/10/19 18:19:00
--
大师：
这个是实例，窗口中的刷新按钮用来刷新动作明细表后能将动作明细表中要计算的数据计算出来并显示在动作明细表中
现在的刷新按钮中的代码是：
For i As Integer = 1 To CurrentTable.rows.count-1 CurrentTable.rows(i)("人工宽放") = CurrentTable.rows(i-1)("人工宽放") Next 望大师能帮忙 |
-- 发布时间：2017/10/19 18:19:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:yjmg.rar |
-- 发布时间：2017/10/19 19:50:00
--
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
-- 发布时间：2017/10/20 8:47:00
--
谢谢大师