- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 循环修改字典值，报错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75348)
-- 发布时间：2015/10/6 10:24:00
-- 循环修改字典值，报错
循环修改字典值，报错
只能改第一个，后面的就异常了，循环结束了
无解了
此主题相关图片如下：无标题.png
此主题相关图片如下：无标题.png[此贴子已经被作者于2015/10/6 11:02:27编辑过]
-- 发布时间：2015/10/6 10:40:00
--
求，大神指导呀
[此贴子已经被作者于2015/10/6 11:01:56编辑过]
-- 发布时间：2015/10/6 17:50:00
--
改成
for i=0 to dic.count -1
messages.show(dic(i))
next
for each 是不能修改集合值得
[此贴子已经被作者于2015/10/6 21:10:24编辑过]
-- 发布时间：2015/10/6 20:42:00
--
上例子
-- 发布时间：2015/10/7 10:17: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 keys(zd.keys.Count) As Integer
zd.Keys.CopyTo(keys, 0)
For Each k As Integer In Keys \'显示所有键及其对应的值
zd(k) = 123456
Output.Show(K & ":" & zd(k))
Next