以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  行间计算  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136640)

--  作者:fubblyc
--  发布时间:2019/6/18 10:08:00
--  行间计算
    Dim n2A00 As Double
    Dim n2C00 As Double
    Dim n4A00 As Double
    Dim n4C00 As Double
    
    
    If e.DataRow("项目") = "2、内部往来收入" Then
        n2A00 = e.DataRow("A00")
        n2C00 = e.DataRow("C00")
    End If
    
    If e.DataRow("项目") = "4、内部往来支出" Then
        n4A00 = e.DataRow("A00")
        n4C00 = e.DataRow("C00")
    End If
    
    If e.DataRow("项目") = "2、内部往来收入" Or e.DataRow("项目") = "4、内部往来支出" Then
        e.DataRow("A00验证") = n2A00 - n4A00
        e.DataRow("C00验证") = n2C00 - n4C00
        output.show("n2A00" & n2A00)
        output.show("n4A00" & n4A00)
        
        output.show("n2C00" & n2C00)
        output.show("n4C00" & n4C00)
    End If

老师,这个行间的计算,不知道怎么整?
用的 DataColChanged

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



[此贴子已经被作者于2019/6/18 10:08:31编辑过]

--  作者:有点甜
--  发布时间:2019/6/18 10:55:00
--  

 

用find,根据关键字,找到对应的行,然后再计算