以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树更新数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85792)

--  作者:jamhuton
--  发布时间:2016/6/2 17:18:00
--  目录树更新数据
如下图
双击目录树某个节点,表中余额也根据前面的数据变化。

--  作者:jamhuton
--  发布时间:2016/6/2 17:18:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2016/6/2 17:38:00
--  

筛选后执行

 

Dim t As Table = Tables("表A")
Dim pdr As Row = Nothing
For Each dr As Row In t.rows
    If pdr Is Nothing Then
        dr("余额") = dr("收入") - dr("支出")
    Else
        dr("余额") = dr("收入") - dr("支出") + pdr("余额")
    End If
    pdr = dr
Next


--  作者:大红袍
--  发布时间:2016/6/2 17:39:00
--  

或者是,你直接重置列也行

 

http://www.foxtable.com/help/topics/1587.htm

 


--  作者:jamhuton
--  发布时间:2016/6/3 13:04:00
--  
good,谢老师