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

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

1 个答案: