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

Question

我想在我的訪問程序中使用哈希表或字典。顯然，我應該爲此使用Microsoft Scripting Runtime Library，但它不起作用。

Dim Dict1 As Dictionary 

' Create a dictionary instance. 
Set Dict1 = New Dictionary 

它不能找到方法 「.compareMode」 或 「新增」：

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 to vbBinaryCompare。

我想你想要做你的設置是這樣的：

Set Dict1 = CreateObject(Scripting.Dictionary) 

編輯只是使其更加醒目，這裏是安東的最終解決方案。他改變了他宣稱自己的詞典的方式如下：

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