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

Question

我想在我的 Access 程序中使用哈希表或字典。显然，我应该为此使用 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)

编辑 为了让它更明显，这里是安东的最终解决方案。他改变了他宣布字典的方式如下:

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