以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  【求解：未处理】字典dictionary值ADD后，无法修改吗，修改报错！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75352)
--  作者：ycli368
--  发布时间：2015/10/6 11:23:00
--  【求解：未处理】字典dictionary值ADD后，无法修改吗，修改报错！
如题：
[此贴子已经被作者于2015/10/6 15:17:03编辑过]
--  作者：ycli368
--  发布时间：2015/10/6 13:27:00
--  
求大神呀
--  作者：ycli368
--  发布时间：2015/10/6 15:17:00
--  
真的无解吗
--  作者：大红袍
--  发布时间：2015/10/7 10:32:00
--  

可以修改，但尽量不要在循环里修改，如果要在循环里面，就必须把key拷贝一份

 

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