MS-Access 2007 中的字典和哈希表

Question

我想在我的访问程序中使用哈希表或字典。显然，我应该为此使用 Microsoft Scripting Runtime Library，但它不起作用。

Dim Dict1 As Dictionary

' Create a dictionary instance.
Set Dict1 = New Dictionary

找不到方法“.compareMode”或“.Add”：

With Dict1
  'set compare mode
  .CompareMode = BinaryCompare
  ' Add items to the dictionary.
  .Add 1, "Item 1"
  .Add 2, "Item 2"
  .Add 3, "Item 3"
End With

相反，这些是我唯一可用的：

.application
.creator
.delete
etc...

有什么线索吗？

Answer 1

好吧，首先将 BinaryCompare 更改为 vbBinaryCompare。

而且我认为你想像这样做你的系列：

Set Dict1 = CreateObject(Scripting.Dictionary)

编辑 为了让它更显眼，这里是 Anton 的最终解决方案。他改变了他声明字典的方式如下：

Dim SortValues As Scripting.Dictionary 
Set SortValues = New Scripting.Dictionary