主题：[求助]关于自动求和的问题（新问题，狐爸请进）

Dim lm3 As String

Dim n1 As Integer

Dim sum As Double

Dim drs1 As New List(of DataRow)

drs1 = e.DataTable.Select("日期 > #1/1/1900# And [_Identify] >= " & e.DataRow("_Identify"))

Select Case e.DataCol.name

    Case "工行G02"

        lm3 = "G02余额"

        n1=0

        sum =  e.DataTable.Compute("Sum(" & e.DataCol.name & ")", "[_Identify] <=  " &  e.DataRow("_Identify"))

        For Each dr As DataRow In drs1

            If n1 = 0 Then

                dr(lm3) = sum

            Else

                dr(lm3) = drs1(n1-1)(lm3)+ dr(e.DataCol.name)

            End If

            n1+=1

        Next

    Case "农行N01"

        lm3 = "N01余额"

        n1=0

        sum =  e.DataTable.Compute("Sum(" & e.DataCol.name & ")", "[_Identify] <=  " &  e.DataRow("_Identify"))

        For Each dr As DataRow In drs1

            If n1 = 0 Then

                dr(lm3) = sum

            Else

                dr(lm3) = drs1(n1-1)(lm3)+ dr(e.DataCol.name)

            End If

            n1+=1

        Next

    Case "建行J01"

        lm3 ="J01余额"

        n1=0

        sum =  e.DataTable.Compute("Sum(" & e.DataCol.name & ")", "[_Identify] <=  " &  e.DataRow("_Identify"))

        For Each dr As DataRow In drs1

            If n1 = 0 Then

                dr(lm3) = sum

            Else

                dr(lm3) = drs1(n1-1)(lm3)+ dr(e.DataCol.name)

            End If

            n1+=1

        Next

        

    Case "信用社X01"

        lm3 = "X01余额"

        n1=0

        sum =  e.DataTable.Compute("Sum(" & e.DataCol.name & ")", "[_Identify] <=  " &  e.DataRow("_Identify"))

        For Each dr As DataRow In drs1

            If n1 = 0 Then

                dr(lm3) = sum

            Else

                dr(lm3) = drs1(n1-1)(lm3)+ dr(e.DataCol.name)

            End If

            n1+=1

        Next

End Select