Question

我有一个包含类实例的字典。不知怎的，我找不到一种方法来改变一个值（将新的类实例赋值给字典）。

例如

Dim t as new Product 
'initialize t
if dictionaryP.Exists(keyValue) then
    'in the next line i get an error "Object doesn't support this property or method"
    dictionaryP.Item(keyValue)=t 
else
    'no problem with this line...
    dictionaryP.Add keyValue, t
end if

无法找到有关在VBA 中使用带有对象值的词典的任何信息，而不仅仅是纯字符串或整数。如何更改存储对象（类实例）的字典的字典值，因为我似乎无法使用

dictionary.Item(key) = <new Object value> ' as i thought it sould be, from this source

http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/A_3391-Using-the-Dictionary-Class-in-VBA.html

我缺少什么？如果值是对象（不是普通值），我该如何更改字典值？

Answer 1

必须使用Set分配对象。属性.Item是默认属性，因此可以删除（但不会造成伤害）。尝试

Set dictionaryP (keyValue) = t

类实例字典，如何分配新值？

1 个答案: