请教字典嵌套问题

大公臻信

各位老师：
2个工程涉及一项费用（分部分工程费）两个类别（建筑工程、安装工程），用字典嵌套方法，汇总费用并传递值，我的代码如下：
Set psht1 = Sheets("字典嵌套")
psht1.Select
prwb1 = psht1.UsedRange.Rows.Count
arr1 = Range("a5:e" & prwb1 - 1)
arr2 = Array("建筑工程", "安装工程")
'定义一级字典
Set d = CreateObject("scripting.dictionary") '一级字典嵌套
'运用嵌套字典方法
'定义嵌套字典
For i = 1 To UBound(arr1, 1)
    If Not d.Exists(arr1(i, 2)) Then
      Set d(arr1(i, 2)) = CreateObject("scripting.dictionary") '一级字典嵌套
    End If
    For j = 0 To UBound(arr2)
'        If Not d(arr1(i, 2)).Exists(arr2(j)) Then
          Set d(arr1(i, 2))(arr2(j)) = CreateObject("scripting.dictionary") '二级字典嵌套
'        End If
    Next
Next
'给嵌套字典赋值
For i = 1 To UBound(arr1, 1)
   For j = 0 To UBound(arr2)
        If arr1(i, 2 + j + 1) <> "" Then
            d(arr1(i, 2))(arr2(j)) = d(arr1(i, 2))(arr2(j)) + arr1(i, 2 + j + 1)  ‘运行错误 错误的参数号或无效的属性赋值
            Debug.Print d(arr1(i, 2))(arr2(j))
        End If
   Next
Next

请老师指教，谢谢，
字典嵌套.zip (13.2 KB, 下载次数: 31)

2020-10-17 21:23 上传

点击文件名下载附件

1016373263

Set d(arr1(i, 2))(arr2(j)) = CreateObject("scripting.dictionary") '二级字典嵌套
这一句错了

1016373263

1016373263 发表于 2020-10-17 22:14
Set d(arr1(i, 2))(arr2(j)) = CreateObject("scripting.dictionary") '二级字典嵌套
这一句错了

不需要再设字典

1016373263

d(arr1(i, 2))(arr2(j)) 是字典，关键字呢？没有，所以出错

1016373263

看看我写的很多字典嵌套的例子

Datous

这一段全删除

1. '    For j = 0 To UBound(arr2)
   
2. '        If Not d(arr1(i, 2)).Exists(arr2(j)) Then
   
3. '          Set d(arr1(i, 2))(arr2(j)) = CreateObject("scripting.dictionary") '二级字典嵌套
   
4. '        End If
   
5. '    Next

复制代码

大公臻信

老师：
'        If Not d(arr1(i, 2)).Exists(arr2(j)) Then
          Set d(arr1(i, 2))(arr2(j)) = CreateObject("scripting.dictionary") '二级字典嵌套
'        End If

d(arr1(i, 2))(arr2(j)) 的关键字是arr2(j),建筑工程、安装工程，测试出错，暂注释掉了
For i = 1 To UBound(arr1, 1)
    If Not d.Exists(arr1(i, 2)) Then
      Set d(arr1(i, 2)) = CreateObject("scripting.dictionary") '一级字典嵌套
    End If
    For j = 0 To UBound(arr2)
        If Not d(arr1(i, 2)).Exists(arr2(j)) Then
           Set d(arr1(i, 2))(arr2(j)) = CreateObject("scripting.dictionary") '二级字典嵌套
        End If
    Next
Next
'给嵌套字典赋值
For i = 1 To UBound(arr1, 1)
   For j = 0 To UBound(arr2)
        If arr1(i, 2 + j + 1) <> "" Then
            d(arr1(i, 2))(arr2(j)) = d(arr1(i, 2))(arr2(j)) + arr1(i, 2 + j + 1)    ‘此名仍显示运行错误
            Debug.Print d(arr1(i, 2))(arr2(j))
        End If
   Next
请老师指点
Next

大公臻信

Datousf老师，注释掉那段代码后，不再显示出错，但不太理解，仅定义一级字典，二级字典没有定义，是如何嵌套的。谢谢

Datous

大公臻信 发表于 2020-10-17 22:40
Datousf老师，注释掉那段代码后，不再显示出错，但不太理解，仅定义一级字典，二级字典没有定义，是如何嵌 ...

你创建了二级字典，d()()

二级字典仍需要继续，add key,item
d()()()=item，这样才是合理的

而 d(arr1(i, 2))(arr2(j)) = d(arr1(i, 2))(arr2(j)) + arr1(i, 2 + j + 1)  这一句
没有添加 key ，d(arr1(i, 2))(arr2(j)) 是个字典对象

Datous

大公臻信 发表于 2020-10-17 22:40
Datousf老师，注释掉那段代码后，不再显示出错，但不太理解，仅定义一级字典，二级字典没有定义，是如何嵌 ...

回复总是审核

二级字典，d()()()=d()()()+item

d()()=d()()+item，是对象=对象+item