集合已修改；可能无法执行枚举操作 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 集合已修改；可能无法执行枚举操作

共有3636人关注过本帖树形打印复制链接主题：集合已修改；可能无法执行枚举操作

wohenguaia

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：381 积分：3462 威望：0 精华：0 注册：2011/5/9 12:45:00

集合已修改；可能无法执行枚举操作 发帖心情

Post By：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

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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：381 积分：3462 威望：0 精华：0 注册：2011/5/9 12:45:00

Post By：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

For i As Integer = kList.Count To 1 Step -1

zd.Remove(i)

For Each k As Integer In zd.keys

output.show(zd(k))

[此贴子已经被作者于2021/4/15 9:04:35编辑过]

chen37280600

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1280 积分：7975 威望：0 精华：4 注册：2017/12/31 14:53:00

Post By：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

For i As Integer = 0 To kList.Count-1 //改成这样，结果也一样正常

zd.Remove(i)

For Each k As Integer In zd.keys

output.show(zd(k))

下一主题 >> << 上一主题

主题：集合已修改；可能无法执行枚举操作