[已解决]字典问题

liziyuliziyu7

请问字典后期绑定，如何定义多个字典？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-13 21:32

对的。

跳转到最佳答案楼层

hwc2ycy

dim dic as object
set dic=createobject("scripting.dictionary")
dim dic2 as ...
.....................

hwc2ycy

定义多个字典也就是多定义几个变量，然后再创建

hwc2ycy

1. Sub test()
   
2.     Dim arr(), i&
   
3.     ReDim arr(1 To 10)
   
4.     For i = LBound(arr) To UBound(arr)
   
5.         Set arr(i) = CreateObject("scripting.dictionary")
   
6.     Next
   
7. End Sub

复制代码

数组装字典。

liziyuliziyu7

hwc2ycy 发表于 2012-12-13 20:59
dim dic as object
set dic=createobject("scripting.dictionary")
dim dic2 as ...

麻烦你写全，写三个，      dim dic as object
                                          set dic=createobject("scripting.dictionary")
                                          dim dic2 as object
                                          set dic2=createobject("scripting.dictionary")
                                           dim dic3 as object
                                           set dic3=createobject("scripting.dictionary")
是这样的吗？

hwc2ycy

对的。