主题：数据填充

我这样加入了一个删除选中行的代码,但为什么选中多行时,却一次删除不彻底,比如选中5行,执行下代码,最后应收款里面选中的行删除的却是3个,有时2个,不知道什么原因

Dim Cols1() As String = {"车号","姓名","车型","电话","摘要","应收金额"}

Dim Cols2() As String = {"车号","姓名","车型","电话","摘要","已付金额"}

With Tables("应收款")

    For y As Integer = .TopPosition To .BottomPosition

        Dim dr1 As Row = .Rows(y)

        Dim dr2 As DataRow = DataTables("已付款").AddNew()

        For i As Integer = 0 To Cols1.Length -1

             dr2(Cols2(i)) = dr1(Cols1(i))

      Next

           .Rows(y).Delete 

       Next

End With