字典Dict(Arr(ii)) = ""， Exists成立

ning84

Dict(Arr(ii)) = ""， Exists成立
Dict1(ii) = Arr(ii),  Exists不成立。

1. Sub dicdel()
   
2.    Dim Arr, Arr1
   
3.        Arr = Array(1, 3, 2, 3, 3.5, 4, "aaa")
   
4. 
   
5.    Dim Dict As Dictionary, Dict1 As Dictionary
   
6.        Set Dict = New Dictionary
   
7.        Set Dict1 = New Dictionary
   
8.        For ii = 0 To UBound(Arr)
   
9.             Dict(Arr(ii)) = ""
   
10.             Dict1(ii) = Arr(ii)
    
11.        Next ii
    
12.        Debug.Print Dict.Exists("aaa"), Dict1.Exists("aaa")
    
13.        Stop
    
14.        Stop
    
15. End Sub
    

复制代码

fanyoulin

注意观察：

       Dict(Arr(ii)) = ""      '关键字是arr数组，包含 aaa这个关键字
       Dict1(ii) = Arr(ii)     '关键字是循环参数 ii

也就是说Dict1里面根本就不存在 "aaa" 这个关键字

liulang0808

dic(k)="aa"
键：dic.keys返回字段的键，字典的键唯一不可变，也就是用于d.exists（k）这样判断是键,对应上面的k就是键
值：dic.items返回字段的值，是一个数组，其中的值可以重复，比如上面的“aa”就是值
楼主代码中的要区分要判断的是哪个

ssfx1982

  Dict的key值是数组 Array(1, 3, 2, 3, 3.5, 4, "aaa")中的7个值，包含aaa。  Dict1的key值是ii循环生成的值，分别为0-6，当然不存在“aaa”。