主题：初始数的科目汇总

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