主题：计算问题

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("计算一") = 0

            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 - 1)("第二列")

            drs(i)("计算二") = drs(i - 2)("第一列") + drs(i - 1)("第二列")

            

            

        Next 

End Select

代码想实现：

计算一、计算二这2列，首2行不做计算，也就从第3行起开始做计算

第3行("计算一") = 上一行的("第一列") +  ("第二列")，也就("第一列") +  ("第二列")的第2行

第3行("计算二") = 前一行("第一列") + ("第二列")，也就("第一列") +  ("第二列")的第1行

以此类推