字典嵌套数组为什么不能改变数组的值呢？

chxw68

如下 面例子：
Sub test()
  Dim d As New Dictionary
  d(1) = Array(0, 0, 0, 0, 0)
  d(1)(1) = 10
  MsgBox d(1)(1) '显示该数组元素值仍然是0,
  
End Sub
程序执行前d(1)(1)元素的值为0，执行d(1)(1)=10语句后，d(1)(1)的值仍然为0，这是为什么呢？

liucqa

Sub test()
    Set d = CreateObject("Scripting.Dictionary")
    d.RemoveAll
    ary1 = Array(0, 0, 0, 0, 0)
    d("1") = ary1
    ary2 = d("1")
    ary2(4) = 10
    MsgBox ary2(4)
    d("1") = ary2
End Sub


↓ 点评的这位对字典存储原理一无所知，就不要乱点评了，让人笑话

zhaogang1960

字典条目要整体添加，或修改：
d.Add 1, a'a可以是数组
或
d.Item(1)=a'.Item可以省略
可以先把字典条目读出到一个临时数组变量，修改后再一次性再添加到字典：

1. Sub test()
   
2.   Dim d As New Dictionary, t
   
3.   d(1) = Array(0, 0, 0, 0, 0)
   
4.   t = d(1) '读出字典条目
   
5.   t(1) = 10 '修改数组的某个元素
   
6.   d(1) = t '修改后的数组整体再覆盖原来的条目
   
7.   MsgBox d(1)(1)
   
8.   
   
9. End Sub
   

复制代码

liucqa

如果你想在字典里面直接修改Item项的某数组下标值，需要使用类模块

http://club.excelhome.net/thread-1068628-1-1.html

bksfs

zhaogang1960 发表于 2013-11-25 01:47
字典条目要整体添加，或修改：
d.Add 1, a'a可以是数组
或

d(1) 这个1是键值还是条目？

kevinchengcw

可以用另一种方式来处理

当前方式：数组存入字典
数组-->存入-->字典
作为字典item项的数组不能直接修改

推荐方式：数组存入数组，字典记录存入位置
数组1-->存入-->数组2-->字典记录数组1在数组2中的存储位置
作为数组2项目的数组1可以直接修改，字典只起到索引的作用

嘻嘻嘻980

感谢老师分享，谢谢。

zfq2100

kevinchengcw 发表于 2014-12-16 08:43
可以用另一种方式来处理

当前方式：数组存入字典

受教了。。。。。。