以文本方式查看主题

-  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=97166)

--  作者:唐老鸭
--  发布时间:2017/3/7 12:19:00
--  [求助] 下一行如何减去上一行 结果生成在上一行
               列1              列2
第一行   35               15
第二行   50               10
第三行   60            
怎么做到拿列1的第二行减去列1第一行,结果生成在列2的第一行?列如上面这样。

--  作者:唐老鸭
--  发布时间:2017/3/7 12:58:00
--  
求解!!!急
--  作者:pyh6918
--  发布时间:2017/3/7 13:34:00
--  
Dim p1 As Row
Dim p2 As Row
For i As Integer = 1  To Tables("表A").Rows.Count -1
    p1 = Tables("表A").Rows(i-1)
    p2 = Tables("表A").Rows(i)
    p1("第二列")=p2("第一列")-p1("第一列")
Next

--  作者:有点色
--  发布时间:2017/3/7 14:57:00
--  

看看流水账的设计吧

 

http://www.foxtable.com/webhelp/scr/1572.htm

 

http://www.foxtable.com/webhelp/scr/2136.htm