dict对象在VBA代码中失败

Question

我在vba中有以下代码来填充字典对象。

Do
    If Not dict.Exists(rst![key]) Then
       dict.Add rst![key], rst![val]
    End If
    rst.MoveNext
Loop Until rst.EOF

由于某种原因，我的字典失败，在第一次迭代后没有向字典中添加另一个项目。如果有人对此有任何想法，请告诉我。

Answer 1

使用字典对象时，必须在Dictionary.Add方法中使用记录集的Value属性，否则它将无效。试试以下

Do
    If Not dict.Exists(rst![key].Value) Then
       dict.Add rst![key].Value, rst![val].Value
    End If
    rst.MoveNext
Loop Until rst.EOF