嵌套字典赋值异常：单区块值同步至所有区块问题排查

背景信息 #

该字典用于描述不同街区的特定餐饮店，嵌套字典存储食物元素及其整体评分。ckDict结构如下（修正原示例的语法错误，匹配VBA字典实际结构）：

{
    "808": {
        "Carbohydrate Texture": 6, 
        "Carbohydrate Quantity": 3
    }, 
    "826": {
        "Carbohydrate Texture": 6, 
        "Carbohydrate Quantity": 3
    }
}

ckBlk是父循环中的常量值，代表当前操作的街区标识；setArr是存储ckDict的数组。

问题现象 #

• 修改单个街区（如808）的评分值时，其他街区（如826）的对应值会同步被修改。
• 即使将赋值语句中的ckBlk替换为固定值"808"，测试街区"826"的对应值仍受影响。
• 调试确认ckBlk值未发生变化，排除循环变量错误的可能。

调试输出 #

ckBlk: 808 | Qn: Main Protein Taste | Value: 1
826 before insertion: 0
826 after insertion: 1
808 after insertion: 1

代码片段 #

For Each fdCat_qnType In setArr(arrCounter).ckDict(ckBlk)
    Debug.Print ("ckBlk: " & ckBlk & " | Qn: " & fdCat_qnType & " | Value: " & CInt(Left(fdVotes(1, fdVotesCounter), 1))) ' IMPORTANT FOR DEBUG
    Debug.Print ("826 before insertion: " & setArr(arrCounter).ckDict("826")(fdCat_qnType))
    setArr(arrCounter).ckDict(ckBlk)(fdCat_qnType) = CInt(Left(fdVotes(1, fdVotesCounter), 1))
    Debug.Print ("826 after insertion: " & setArr(arrCounter).ckDict("826")(fdCat_qnType))
    Debug.Print ("808 after insertion: " & setArr(arrCounter).ckDict("808")(fdCat_qnType))
    Debug.Print ("")
    fdVotesCounter = fdVotesCounter + 1
Next fdCat_qnType

问题根源 #

VBA中字典属于引用类型，如果初始化ckDict时，将同一个子字典对象赋值给多个街区键（如"808"和"826"），这些键会指向内存中同一个字典实例。修改任意一个键对应的子字典，都会直接修改共享的实例，导致所有街区的数值同步变化。

错误的初始化示例：

Dim subDict As New Dictionary
subDict("Carbohydrate Texture") = 6
subDict("Carbohydrate Quantity") = 3

Dim ckDict As New Dictionary
ckDict.Add "808", subDict
ckDict.Add "826", subDict ' 两个键引用同一个subDict对象，导致同步修改

解决方案 #

为每个街区单独创建独立的子字典实例，确保每个键指向不同的内存对象。

直接初始化示例 #

Dim ckDict As New Dictionary

' 为808创建独立子字典
Dim subDict808 As New Dictionary
subDict808("Carbohydrate Texture") = 6
subDict808("Carbohydrate Quantity") = 3
ckDict.Add "808", subDict808

' 为826创建独立子字典
Dim subDict826 As New Dictionary
subDict826("Carbohydrate Texture") = 6
subDict826("Carbohydrate Quantity") = 3
ckDict.Add "826", subDict826

批量初始化辅助函数 #

如果需要初始化多个街区，可通过辅助函数批量创建独立子字典：

Function CreateFoodRatingDict() As Dictionary
    Dim newDict As New Dictionary
    newDict("Carbohydrate Texture") = 6
    newDict("Carbohydrate Quantity") = 3
    ' 可添加其他食物元素的初始评分
    Set CreateFoodRatingDict = newDict
End Function

' 批量初始化ckDict
Dim ckDict As New Dictionary
ckDict.Add "808", CreateFoodRatingDict()
ckDict.Add "826", CreateFoodRatingDict()

通过以上方式，每个街区的子字典都是独立实例，修改单个街区的评分不会影响其他街区。

内容的提问来源于stack exchange，提问作者ShakyMan