VBA 사전에 저장된 배열 업데이트

Question

중첩 된 사전과 가장 낮은 수준의 목록을 사용하는 데이터 구조를 만듭니다. - 즉, country --> customer --> purchased입니다

이

Country, Customer, Purchased 
US, Alan, Lawnmower 
US, Alan, Hammer 
US, Karen, Donkey 
US, Simon, Mustang 
MX, Carl, Lawnmower 
MX, Alan, Donkey 
... 

내가 생각하고있는 데이터 구조가 dictionary --> dictionary --> array과 같다 : 여기에 내 데이터의 샘플입니다. 이 계획은 dictionary --> dictionary 조합 당 새로운 배열이 될 계획입니다.

그러나 배열을 업데이트하려고하면 dictionary --> dictionary 구조의 모든 하위 수준에 연결되어있는 것처럼 보입니다. 내가보고 기대하고있어 반면 ...

US --> Alan --> [Lawnmower, Hammer, Donkey] 
US --> Karen --> [Lawnmower, Hammer, Donkey] 

: 여기

US --> Alan --> [Lawnmower, Hammer] 
US --> Karen --> [Donkey] 

내가 시도하고있어 코드의 세 번째 행이 처리 된 후 즉, 다음과 같은 상황이됩니다 사용 :

i_p = UBound(purchased_array) 

Redim Preserve purchased_array(i_p + 1) 

purchased_array(i+p + 1) = item ' new item to add to the array 

dataset(country)(customer) = purchased_array 

그러나 이것은 dictionary --> dictionary 구조의 각 최하위 레벨에 의해 참조되는 기본적으로 동일한 배열을 초래한다.

내가 잘못하고있는 것에 대한 의견이 있으십니까?

Answer 1

사전에 배열이있는 경우이를 수정하기 전에 사전에서 배열을 꺼내야합니다. 그럼 다시 넣어.

Sub Tester() 

Dim x As Long, y As Long 
Dim dict As New Scripting.Dictionary 
Dim d As Scripting.Dictionary 
Dim arr 

    For x = 1 To 3 
     Set d = New Scripting.Dictionary 
     For y = 1 To 3 
      d.Add "nextkey" & y, Array("A_" & x & "_" & y, _ 
             "B_" & x & "_" & y) 
     Next y 
     dict.Add "key" & x, d 
    Next x 

    Debug.Print Join(dict("key1")("nextkey1"), ", ") '>> A_1_1, B_1_1 

    'try to modify array while stored in dictionary... 
    dict("key1")("nextkey1")(1) = "newValue1" '<<< doesn't work! 

    Debug.Print Join(dict("key1")("nextkey1"), ", ") '>> A_1_1, B_1_1 

    'have to pull it out of the dictionary if you want to change it... 
    arr = dict("key1")("nextkey1") 
    arr(1) = "newValue2" 
    dict("key1")("nextkey1") = arr 

    Debug.Print Join(dict("key1")("nextkey1"), ", ") '>> A_1_1, newValue2 

End Sub 

Answer 2

사전에는 쌍의 집합이 포함되어 있습니다. 또한 Dictionary의 키 목록은 고유해야합니다. Country & 고객 간의 관계가 포함 된 최상위 사전에 국가 또는 고객 모두 해당 표준에 의해 고유하지 않습니다. 그래서 나는 사전이 적절하다고 생각하지 않는다. 어쩌면 당신은 Dictionary -> Array -> Array을 시도 할 수 있습니다.