更改增量變量會導致循環超出限制

Question

在我的循環中，我嘗試從具有特定名稱的列表中刪除項目。我不能用for-each來做到這一點，所以我嘗試了一個常規for循環。看來for循環沒有按預期工作。它總是超越極限。我不得不把一個if-then打破循環（非常醜陋的解決方案）。我試圖找到正確的方法來完成這一點。

Dim canShowNextTable As Boolean = False 
    Dim allTablesInTab As List(Of Control) = ctrlFinder.GetTypeOfControls("Table", parentForm.Controls) 
    Dim totalTables As Integer = allTablesInTab.Count - 1 
    For i As Integer = 0 To totalTables 
     If allTablesInTab.Item(i).ID = "CustomerTable" Or _ 
      allTablesInTab.Item(i).ID = "PMTable" Or _ 
      allTablesInTab.Item(i).ID = "TableAListClrnCheck" Or _ 
      allTablesInTab.Item(i).ID = "TableBListClrnCheck" Or _ 
      allTablesInTab.Item(i).ID = "TableCListClrnCheck" Or _ 
      allTablesInTab.Item(i).ID = "TableDListClrnCheck" Or _ 
      allTablesInTab.Item(i).ID = "TableSignature" Then  '' If the ID is one of these remove it from list 
      allTablesInTab.Remove(allTablesInTab.Item(i)) 
      totalTables = totalTables - 1       '' Decrement number of tables to loop through 
      i = -1             '' Reset counter to prevent going over or premature stopping 
     End If 
     If i = 3 AndAlso totalTables = 3 Then      '' Since loop continuously goes over limit, use if-then to exit for-loop 
      Exit For 
     End If 
    Next 

Answer 1

你需要反過來遍歷你的循環，因爲一旦你刪除一個項目的總數已經改變，不再是正確的。反向循環可避免此問題。

For i As Integer = totalTables To 0 Step -1 

另外，代替allTablesInTab.Remove(allTablesInTab.Item(i))你可以使用：

allTablesInTab.RemoveAt(i) 

工作，通過在紙上或調試器這樣的邏輯來把握得當發生了什麼的概念。你也可能會發現這個相關的問題很有用。這是在C＃中，但概念是相同的：How to remove elements from a generic list while iterating around it?