字典key属性

bjbxm97

有一疑问：

按照字典中key属性：语法：object .Key(key) = newkey

说明：如果在更改某个 key 时，没有找到 key，则会出现[url=]运行时错误[/url]。如果在改变一个 key 时没有发现该 key，那么将创建一个新的 key 并且其相关联的 item 被设置为空。以下的例子验证： '用"f"替换关键字"e"（其在d中是不存在的），按理，d中应该自动创建一个新关键字"f"，对应item为""，但运行替换的结果是，d中没有发现新创建的关键字"f"，d.count 关键字数量也没有发生变化，[C1]仍为4，如附件。

请问高手这是为什么呢？




Sub test()

Dim d, a, b
On Error Resume Next

   Set d = CreateObject("Scripting.Dictionary")
   d.Add "a", "Athens"
   d.Add "b", "Belgrade"
   d.Add "c", "Cairo"
   d.Add "g", ""
   d.Key("e") = "f"                '用"f"替换关键字"e"----在d中不存在的

   a = d.keys
   b = d.items
   [C1] = d.Count
   
   [A1] = a(0)
   [A2] = a(1)
   [A3] = a(2)
   [A4] = a(3)
   [B1] = b(0)
   [B2] = b(1)
   [B3] = b(2)
   [B4] = b(3)
   
   If d.Exists("f") Then   
      MsgBox "f存在"     
     Else      
      MsgBox "f不存在"      
   End If
End Sub

liulang0808

On Error Resume Next
把这个取消了，然后再调试吧

smiletwo

字典属性Key的增加好像只能用add()，可以用d("e")="f"

joy.008@163.com

d("e") = "f"  
有了赋值 没有就创建

bjbxm97

joy.008@163.com 发表于 2023-3-2 13:00
d("e") = "f"  
有了赋值 没有就创建

按照语法：“如果在改变一个 key 时没有发现该 key，那么将创建一个新的 key 并且其相关联的 item 被设置为空“。这应该是d字典会自动创建的

bjbxm97

joy.008@163.com 发表于 2023-3-2 13:00
d("e") = "f"  
有了赋值 没有就创建

按照语法：“如果在改变一个 key 时没有发现该 key，那么将创建一个新的 key 并且其相关联的 item 被设置为空“。这应该是d字典会自动创建的

wanghan519

搜了下语法没说会自动创建啊。。。

bjbxm97

smiletwo 发表于 2023-3-2 12:47
字典属性Key的增加好像只能用add()，可以用d("e")="f"

按照语法：“如果在改变一个 key 时没有发现该 key，那么将创建一个新的 key 并且其相关联的 item 被设置为空“。这应该是d字典会自动创建的，不需要自己再做ADD吧。

micch

d.Key("e") = "f"       没有这种用法，你看的哪个教程

micch

说错了，在增加新元素的时候 用d.add key,item  或者  d(key)=item

d(odlkey)=newkey  可以修改已存在的key