主题：求个代码

Dim bjs As List(Of String) = DataTables("本金").GetUniqueValues("","月份")

        For Each bj As String In bjs

            Dim drs As List(Of DataRow) = DataTables("本金").Select("客户编号='" & e.DataRow("客户编号") & "'And 月份='" & e.DataRow("月份") & "'")

            For n As Integer = 0 To drs.Count - 1              

                    If n > 0 AndAlso drs(n)("月份")= drs(n)("月份") Then

                        drs(n)("期初余额") = drs(n-1)("期末余额")            

                End If

            Next

        Next