Select Case e.DataCol.Name

    Case "金额", "往来方式"

        Dim dr As DataRow

        Dim drs As List(Of DataRow)

        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") \'找出上一行

        If dr Is Nothing Then \'如果没有找到上一行,说明本行就是第一行

            e.DataRow("余额") = e.DataRow("金额") - e.DataRow("金额")

            dr = e.DataRow

        End If

        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")

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

            drs(i)("余额") = drs(i - 1)("余额") - drs(i)("金额")

        Next 

End Select