以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  集合已修改；可能无法执行枚举操作  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162766)
--  作者：wohenguaia
--  发布时间：2021/4/15 8:47:00
--  集合已修改；可能无法执行枚举操作
问题代码如下：
If sendSuccFlag Then
    \'\'\'遍历所有元素,删除过期验证码
    Dim tp As New TimeSpan
    For Each k As String In veriCodeZD.keys \'显示所有值
        tp = Date.Now - veriCodeZD(k)
        If tp.TotalSeconds > 120 Then
            veriCodeZD.Remove(k)
            output.show(tp.TotalSeconds)
        End If
        
    Next
    veriCodeZD.add(veriCode,Date.Now)  \'\'把验证码添加到验证码集合
    e.WriteString(e.Values("mobile") & ":" & veriCode)
End If


错误提示：

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：自定义函数,sendVeriCodeFun
详细错误信息：
调用的目标发生了异常。
集合已修改；可能无法执行枚举操作。
[此贴子已经被作者于2021/4/15 8:47:11编辑过]
--  作者：wohenguaia
--  发布时间：2021/4/15 9:04:00
--  
已经解决，倒着删除



Dim zd As New Dictionary(Of Integer, String)
zd.Add(1,"苹果")
zd.Add(2,"香蕉")
zd.Add(3,"波罗")
zd.Add(4,"桔子")
zd.Add(5,"桃子")
Dim kList As new List(of Integer)
For Each k As Integer In zd.keys
    If k Mod 2 = 0 Then
        kList.add(k)
    End If
Next
For i As Integer = kList.Count To 1 Step -1
    zd.Remove(i)
Next
For Each k As Integer In zd.keys
output.show(zd(k))
Next
[此贴子已经被作者于2021/4/15 9:04:35编辑过]
--  作者：chen37280600
--  发布时间：2021/4/15 10:05:00
--  
你的问题应该不是顺着删还是倒着删，

而是不能对 同一个字典 同时进行遍历+删除

你改进的代码里，遍历和删除分离了，所以就没事了

Dim zd As New Dictionary(Of Integer, String)
zd.Add(1,"苹果")
zd.Add(2,"香蕉")
zd.Add(3,"波罗")
zd.Add(4,"桔子")
zd.Add(5,"桃子")
Dim kList As new List(of Integer)
For Each k As Integer In zd.keys
    If k Mod 2 = 0 Then
        kList.add(k)
    End If
Next
For i As Integer = 0 To kList.Count-1 //改成这样，结果也一样正常
    zd.Remove(i)
Next
For Each k As Integer In zd.keys
    output.show(zd(k))
Next