主题：求助制表？

Select Case e.DataCol.Name
    Case "收入数","支出数"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey") And 记账人 = '" & e.datarow("记账人") & "'", "[_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)("收入数") - drs(i)("支出数")
        Next   
End Select

是这样写的吗？

Select Case e.DataCol.Name
    Case "收入数","支出数"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey") & " And 记账人 = '" & e.DataRow("记账人") & "'", "[_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") & "  And 记账人 = '" & e.DataRow("记账人") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("个人余额") = drs(i-1)("个人余额") + drs(i)("收入数") - drs(i)("支出数")
        Next
End Select