VBScript 字典错误答案

【问题标题】：VBScript Dictionary ErrorVBScript 字典错误
【发布时间】：2016-03-03 17:20:38
【问题描述】：

我一直在处理一个使用经典 ASP (VBScript) 创建的旧项目。

我找到了我需要的字典集合类型。但是，它一直告诉我“此键已与此集合的元素相关联。”当我尝试从数据库记录集中加载它时。

这里是代码。

set objRS = objDBConn.Execute("SELECT AreaAbbrev, Area FROM tblArea WHERE CompanyID = 15")
Set areaDict = CreateObject("scripting.dictionary")
areaDict.CompareMode=vbTextCompare

WHILE NOT objRS.EOF
    Response.Write(objRS("AreaAbbrev") & " ::: " & objRS("Area") & "<br />")
    areaDict.add objRS("AreaAbbrev"), objRS("Area")
    objRS.movenext
WEND

这是输出：

00K ::: Kellogg
00G ::: Girdler

Microsoft VBScript runtime  error '800a01c9' 

This key is already associated with an element of this collection

如您所见，“00G”与“00K”不同。谁能告诉我为什么这可能会给我这个错误？

谢谢！

【问题讨论】：

标签： dictionary vbscript

【解决方案1】：

经过进一步研究，我发现在这一行添加 .Value 解决了这个问题：

areaDict.add objRS("AreaAbbrev").Value, objRS("Area").Value

【讨论】：