主题：初始数的科目汇总

With DataTables("初始数据_Table1")

    Dim km As String = e.DataRow("科目代码")

    For i1 As Integer = (km.Length / 4) - 1 To 0

        Dim c1 As Integer = 4 * i1

        Dim dr1 As DataRow = .find("[科目代码] Like '" & e.DataRow("科目代码").SubString(0,c1) & "' And [科目代码] <> '" & e.DataRow("科目代码").SubString(0,c1) & "'")

        If (e.DataCol.Name = "科目代码" OrElse e.DataCol.Name = "科目名称") AndAlso "[科目代码] Like '" & e.DataRow("科目代码").SubString(0,c1) & "%' And [科目代码] <> '" & e.DataRow("科目代码").SubString(0,c1) & "'" Then

            dr1("借或贷") = "借"

            dr1("初始余额") = .Compute("Sum(初始余额)", "[科目代码] Like '" & e.DataRow("科目代码").SubString(0,c1) & "' And [科目代码] <> '" & e.DataRow("科目代码").SubString(0,c1) & "'")

        End If

    Next

    Dim rt1 As DataRow = .AddNew()

    rt1("科目代码") = "资产总计"

    rt1("借或贷") = "借"

    rt1("初始余额") = .Compute("Sum(初始余额)", "[科目代码] = '" & e.DataRow("科目代码").SubString(0,4) & "'") - 2 *(.Compute("Sum(初始余额)",rt1("科目名称") = "累计折旧"))

    .DataCols("初始数量").SetFormat("#,###.##")

    .DataCols("初始余额").SetFormat("#,###.##")

End With

代码都写在初始数据窗口中，我暂改了资产表的代码，其他的未改，你可预览，一级科目的初始余额是下一级科目余额的合计，如此类推，另在最后添加一行资产合计，初始余额合计所有一级科目余额，累计折旧例外，它是固定资产减折旧，为方便统一公式计算，所有一级科目余额合计后减去2倍累计折旧金额（表上写在余额列）。