For Each dt As DataTable In DataTables
Select Case dt.Name
Case "导航", "系统_系统设置", "系统_角色"
Case Else
DataTables.Unload(dt.Name)
End Select
Next
---------------------------
版本:2022.8.18.1
---------------------------
代码执行出错，错误信息：
System.InvalidOperationException: 集合已修改；可能无法执行枚举操作。
在 System.ThrowHelper.ThrowInvalidOperationException(ExceptionResource resource)
在 System.Collections.Generic.Dictionary`2.ValueCollection.Enumerator.MoveNext()
在 UserCode.Test()
---------------------------
确定
---------------------------
集合删除要倒序处理，原因可以参考这个：http://www.foxtable.com/webhelp/topics/0599.htm
For i As Integer = DataTables.Count - 1 To 0 Step - 1
Dim dt As DataTable = DataTables(i)
Select Case dt.Name
Case "导航", "系统_系统设置", "系统_角色"
Case Else
DataTables.Unload(dt.Name)
End Select
Next