主题：集合的递归问题

 Dim drs As List(of DataRow) = DataTables("表a").Select("")
For i As Integer = 0 To drs.count - 1
    If i > 0 Then
        Dim pdr As DataRow = drs(i-1)
        Dim dr As DataRow = drs(i)
        dr("第一列") = pdr("第一列") + 100
    End If
Next