为何字典中的一个数组中的值无法修改？

lbpp

遇到一个问题，将一个数组存入字典中，再次对该字典中的数组中的值进行修改后，发现修改不成功，数组中的值没有更新，请问这是什么原因？


设想的输出结果应为{3,4}和{33,44}，但实际两次输入的结果都为{3,4}

1. Sub Question()
   
2.    
   
3.     Dim dict As Object
   
4. '    Set dict = New Dictionary
   
5.     Set dict = CreateObject("Scripting.Dictionary")
   
6.    
   
7.     ' 创建并初始化一个数组
   
8.     Dim arr(0 To 1)
   
9.     arr(0) = 3
   
10.     arr(1) = 4
    
11.    
    
12.     ' 将数组添加进字典
    
13.     dict.Add "abc", arr
    
14.    
    
15.     ' 输出字典中的数组值
    
16.     Debug.Print dict("abc")(0), dict("abc")(1)
    
17.    
    
18.     ' 修改字典中键 "abc" 对应的数组
    
19.     dict("abc")(0) = 33
    
20.     dict("abc")(1) = 44
    
21.    
    
22.     ' 输出修改后的字典中的数组值
    
23.     Debug.Print dict("abc")(0), dict("abc")(1)
    
24.    
    
25. End Sub
    

复制代码

大灰狼1976

字典item里的数组可以直接读取值，但不能直接修改，要过一下桥

lbpp

大灰狼1976 发表于 2024-9-3 14:29
字典item里的数组可以直接读取值，但不能直接修改，要过一下桥

好的，谢谢。那我明白了。
因为你说的过桥的方法我已经摸索出来了，利用一个临时数组，把值导出，修改后再把临时数组放回去。

demonimissyou

Sub Question()
   
    Dim dict As Dictionary
    Dim arr(0 To 1) As Integer
   
    Set dict = New Dictionary
   

    arr(0) = 3
    arr(1) = 4
   
    ' 将数组添加进字典
    dict.Add "abc", arr
   
    ' 输出字典中的数组值
    Debug.Print dict("abc")(0), dict("abc")(1)
   
    ' 修改字典中键 "abc" 对应的数组
    arr(0) = 33
    arr(1) = 44
    dict("abc") = arr
   
    ' 输出修改后的字典中的数组值
    Debug.Print dict("abc")(0), dict("abc")(1)
   
End Sub

大灰狼1976

lbpp 发表于 2024-9-3 14:33
好的，谢谢。那我明白了。
因为你说的过桥的方法我已经摸索出来了，利用一个临时数组，把值导出，修改后 ...

是的是的，不用谢