VBA操作TableDef删除字段异常：For Each循环跳过符合条件条目

这个问题我太熟悉了——用For Each遍历集合时删除元素，绝对是VBA里的经典“坑”！原因很直白：当你删除集合中的一个元素后，集合的内部索引会立刻调整，迭代器的位置会被打乱，直接导致跳过下一个待检查的元素。比如你有字段AC#1、AC#2、AC#3，第一次循环删了AC#1，集合里剩下AC#2和AC#3，但迭代器已经跳到了原来的第二个位置（现在对应AC#3），直接跳过了AC#2，这就是为什么你得多次运行才能删完所有目标字段。

修复方案：用倒序For循环替代For Each #

我们可以从最后一个字段开始往前遍历，这样删除后面的字段不会影响前面未遍历字段的索引，完美规避跳过问题。修改后的完整代码如下：

Set curdb = CurrentDb()
Set tdf = curdb.TableDefs("TASK")
Debug.Print tdf.Fields.Count
tdf.Fields.Refresh

' 改用倒序循环，从最后一个字段往第一个遍历
Dim i As Integer
For i = tdf.Fields.Count - 1 To 0 Step -1
    Set fld = tdf.Fields(i)
    Debug.Print fld.Name
    If InStr(1, fld.Name, "AC#", vbTextCompare) > 0 Then
        tdf.Fields.Delete fld.Name
    End If
Next i

' 添加字段的代码保持不变
strSQL = "SELECT [P6 Files AC].Field_Name " & _
         "FROM [P6 Files AC] " & _
         "ORDER BY [P6 Files AC].Field_Name;"
Set newfields = curdb.OpenRecordset(strSQL, dbOpenSnapshot)
With newfields
    Do Until .EOF()
        tdf.Fields.Append tdf.CreateField(!field_name, dbText, 15)
        .MoveNext
    Loop
End With

为什么这个方法有效？ #

• 倒序循环时，我们先处理索引最大的字段（最后一个），删除它之后，前面字段的索引完全不会变化（因为删除的是后方元素）。
• 比如原字段索引是0、1、2、3，我们先检查索引3的字段，删完后剩下0、1、2，下一次循环检查索引2的字段，以此类推，完全不会出现索引错位的情况。

如果操作的是链接表，修改后可以加上tdf.RefreshLink确保TableDef的状态同步，但在这个场景里，倒序循环已经足够解决核心问题。

内容的提问来源于stack exchange，提问作者Gerard Leuchter