以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  科目余额表上级自动汇总下级余额  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87263)
--  作者：kaituozhe
--  发布时间：2016/7/7 6:35:00
--  科目余额表上级自动汇总下级余额
如例子中的科目余额表，怎么能够实现上级科目自动汇总下级科目余额
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目8.foxdb
--  作者：Hyphen
--  发布时间：2016/7/7 8:53:00
--  
DataColChanged事件

Select Case e.DataCol.Name
    Case "金额"
        Dim idx = e.DataRow("科目编号").LastIndexOf(".")
        If idx > -1 Then
            Dim bh As String = e.DataRow("科目编号").SubString(0,idx)
            Dim dr As DataRow = e.DataTable.Find(CExp("科目编号=\'{0}\'",bh))
            If dr IsNot Nothing Then
                bh = bh & "."
                dr("金额") = e.DataTable.Compute("Sum(金额)",CExp("[科目编号] like \'{0}%\' and [科目编号] not like \'{1}%\' and [_Identify] <> {2}",bh,e.DataRow("科目编号")&".",dr("_Identify")))
            End If
        End If
End Select