Select Case e.DataCol.Name

    Case "第一列","收入","支出"

        Dim dr As DataRow

        Dim mr As DataRow = e.DataRow

        Dim drs As List(of DataRow)

        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [第一列] = \'" & mr("第一列") & "\'", "[_SortKey] Desc")

        If dr Is Nothing Then \'如果没有上一行,说明本行就是同产品的第一行

            If mr("第一列").startsWith("1") OrElse mr("第一列").startswith("5") Then

                mr("余额") = mr("收入") - mr("支出")

            Else

                mr("余额") =  mr("支出") - mr("收入")

            End If

            dr = mr

        End If

        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [第一列] = \'" & dr("第一列") & "\'")

        For i As Integer = 1 To drs.Count - 1 \'重算余下行的余额

            If mr("第一列").startsWith("1") OrElse mr("第一列").startswith("5") Then

                drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")

            Else

                drs(i)("余额") = drs(i-1)("余额") + drs(i)("支出") - drs(i)("收入")

            End If

        Next

End Select