VB6 Dictionary此键已与此集合的元素相关联

Question

这可能听起来有点奇怪，但在这里：

我的表单遍历每个客户（+ -10 000）并打开记录集以进行上次访问。 由于优化不佳，我决定进行一次查询，我需要存储它以便于访问。

我决定拿一本字典，因为与数组不同，我将能够使用键字符串（客户端号码）进行搜索并获取我的项目（字符串：客户端的最后一次访问）。

Dim dict As Dictionary
Set dict = CreateObject("Scripting.Dictionary")


dict.RemoveAll
dict.CompareMode = TextCompare    ' BinaryCompare does not change anything
rsLastVisits.Open "SELECT CUST_NO, MAX(DATE) AS LAST FROM [...] GROUP BY CUST_NO", DBHandle, adOpenDynamic, adLockOptimistic
Do While Not rsLastVisits.EOF
   dict.Add rsLastVisits!CUST_NO, rsLastVisits!LAST
   rsLastVisits.MoveNext
Loop
rsLastVisits.Close

我收到运行时错误“此密钥已与此集合的元素相关联”。

这是有趣的部分开始的地方，因为我的查询不返回重复（我仔细检查）。

调试时，这些是添加的值：

第一次迭代：“0000000。”，“2012/05/27”

第二次迭代：“00000001”，“2011/06/14” ERROR试图插入此行。

在即时窗口中，如果我写

dict.add "00000001", "2011/06/14"

它添加没有任何问题。

如果我清除字典（dict.removeall），它将输入一个项目（无论什么条件。否），下一个项目将始终失败。 如果我在即时窗口中手动输入（无变量），它就可以工作。

你们有没有想法？ 谢谢 ！

Answer 1

你的例子应该工作正常。 我能想到的唯一问题是CUST_NO不是字符串。 试试这个并检查它是否有所不同：

dict.Add CSTR(rsLastVisits!CUST_NO), CSTR(rsLastVisits!LAST)

编辑：

你可以发布CUST_NO的数据库定义吗？

Answer 2

我发现了一个解决方法......

如果我改变

dict.Add rsLastVisits!CUST_NO, rsLastVisits!LAST

至

dict.Add "" & rsLastVisits!CUST_NO, "" & rsLastVisits!LAST

有用...

虽然这没有任何意义，因为我的变量已经是字符串..

我会把它留在这里作为“回答”。 如果你们有更好的Vb6内部知识的人可以向我解释发生了什么，我将不胜感激。

谢谢