主题：求助：如何将第一行计算得到的值，在今后的行里面同列同样同步赋值呢？

Dim temp As Double

Select Case e.DataCol.Name

    Case "现金收入_贷款"

        If e.DataRow("月份") = 1 Then

            e.DataRow("现金流出_贷款利息") = e.DataRow("现金收入_贷款")*0.006

            temp = e.DataRow("现金流出_贷款利息")

        Else

            Dim n As Integer = 0

            Dim drs As List(Of DataRow) = e.DataTable.Select("月份 Is Not Null")

            For n  = 0 To drs.Count - 1

                If n > 0 And drs.Count > 0 Then

                    e.DataRow("现金流出_贷款利息") = drs(n-1)("现金流出_贷款利息")

                End If

            Next

        End If

End Select