2

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

有什么线索吗？

4

1 回答 1

3

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

而且我认为您希望像这样进行设置：

Set Dict1 = CreateObject(Scripting.Dictionary)

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

Dim SortValues As Scripting.Dictionary 
Set SortValues = New Scripting.Dictionary
于 2008-12-30T15:20:42.797 回答