小编Got*_*ekk的帖子

我正在将课程项目添加到字典中，但我无法取回它们。我需要循环还是我做错了什么？

我的课程模块“cOgg”有：

Public desc As String
Public alt As Single

我的潜艇有：

sub pivo()
Dim oMat As New cOgg
Dim sosdb As New Dictionary
Set sosdb = Nothing

oMat.desc= "unodesc"
oMat.alt= 5
sosdb.Add "uno", oMat

oMat.desc= "duedesc"
oMat.alt= 10
sosdb.Add "due", oMat
Debug.Print (sosdb("uno").alt)
Debug.Print (sosdb("due").alt)
end sub

如果我运行 sub，我会得到：

10
10

代替

5
10

有任何想法吗？

问候