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

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

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

wohenguaia

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

加好友

发短信

等级：小狐帖子：381 积分：3456 威望：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 积分：3456 威望：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编辑过]

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

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