Altering an array value within a dictionary

[xylopagus]

Okay, so I have a dictionary whose items are arrays of doubles.

I cannot figure out how to change a value of an array within my dictionary. Here's a simplified example:

Sub Test()
Dim TestDict As New Dictionary
Dim ThisArray() As Integer

ReDim ThisArray(3)

For i = 1 To UBound(ThisArray)
    ThisArray(i) = i + 14
Next i

TestDict.Add "ThisArray!", ThisArray

MsgBox TestDict("ThisArray!")(1)

TestDict("ThisArray!")(1) = 42

MsgBox TestDict("ThisArray!")(1)

End Sub

When I run that sub I expect to see 42, but I see the original value of 15.

Any assistance would be greatly appreciated.

 

[ukmikeb]

Hi

This article -
http://www.techbookreport.com/tutorials/vba_dictionary.html

on the Dictionary Object should help.

 

[ZVI]

Instead of TestDict("ThisArray!")(1) = 42 try this adjustment:

  Dim a
  ' Read array from the dictionary item
  a = TestDict("ThisArray!")
  ' Modify it
  a(1) = 42
  ' Return back
  TestDict("ThisArray!") = a

 

[xylopagus]

Instead of TestDict("ThisArray!")(1) = 42 try this adjustment:

  Dim a
  ' Read array from the dictionary item
  a = TestDict("ThisArray!")
  ' Modify it
  a(1) = 42
  ' Return back
  TestDict("ThisArray!") = a

Thanks for the reply. This solved my problem immediately. I apologize for not posting sooner, but once I read this and tested it I knew that it would solve my problem and I could go home for the weekend!

 

[ZVI]

It’s ok, weekend is too short to notice
Thank you for feedback!
Vlad