报错:"子过程或函数未定义"

scarcity

各位大神好！

       实现目标:  用嵌套字典的方式实现组合框的级联功能

实现效果如下:
     

运行程序时报错: "子过程或函数未定义"
1. 选择组合1的一个元素

2. 报错：


代码如下:
第一步: 窗体初始化
Private Sub UserForm_Initialize()
    Dim dic_comBoxOne As New Dictionary  '字典一
    Dim dic_comBoxTwo As New Dictionary  '字典二
    Dim arr_curRegion As Variant '定义数组
    Dim i, j, nRow As Integer '临时变量
    Dim key_comOne, key_comTwo As String
    arr_curRegion = Sheet1.Range("A1").CurrentRegion '生成一个二维数组
    nRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To nRow Step 1

        key_comOne = arr_curRegion(i, 1)
        key_comTwo = arr_curRegion(i, 2)

        If (Not dic_comBoxTwo.Exists(key_comTwo)) Then
            dic_comBoxTwo.Add key_comTwo, ""
        End If

        If (Not dic_comBoxOne.Exists(key_comOne)) Then
            dic_comBoxOne.Add key_comOne, dic_comBoxTwo
        End If

        dic_comBoxOne(key_comOne)(key_comTwo) = ""
    Next

    ComboBox1.List = dic_comBoxOne.Keys
End Sub


第二部: 组合框1控件的change事件

Private Sub ComboBox1_Change()
    ComboBox2.Clear
    '二级下拉框对应的是第一级字典的键值为键的字典
    ComboBox2.List = dic_comBoxOne(ComboBox1.Value).Keys     ' 报错指向这里: 提示 dic_comBoxOne 未定义，但我在窗体初始化那里已经定义，麻烦大神帮忙看看，多谢！      
End Sub


详情请参考附件，感谢！

scarcity

忘记添加附件，贴上附件

microyip

这个字典不是公用变量，只是定义在初始化过程中使用，初始化完之后，这个字典就结束生存

蓝桥玄霜

我不喜欢变量用太多的字符，看起来更眼花。

scarcity

microyip 发表于 2019-10-20 08:35
这个字典不是公用变量，只是定义在初始化过程中使用，初始化完之后，这个字典就结束生存

感谢回复，麻烦问下怎么送花

scarcity

蓝桥玄霜 发表于 2019-10-20 10:04
我不喜欢变量用太多的字符，看起来更眼花。

感谢百忙之中回复，并附上了代码，通过看您的代码，我发先自己的逻辑错误：
  If (Not dic_comBoxOne.Exists(key_comOne)) Then
            dic_comBoxOne.Add key_comOne, dic_comBoxTwo   
        End If
这段代码虽然是嵌套字典，但逻辑存在严重错误，这样写相当于每个省份关联的是所有省份的地市，感谢！

lsc900707

scarcity 发表于 2019-10-20 16:00
感谢回复，麻烦问下怎么送花

点击对方帖子右下角“评分”，按提示操作即可。

scarcity

microyip 发表于 2019-10-20 08:35
这个字典不是公用变量，只是定义在初始化过程中使用，初始化完之后，这个字典就结束生存

感谢帮助，就是这个问题，变量属于私有，用完就结束了，所有提示未定义

scarcity

蓝桥玄霜 发表于 2019-10-20 10:04
我不喜欢变量用太多的字符，看起来更眼花。

老师，你好！ 按照之前的思路，想多一层，如: xxx省xxx市xxx区，但报错"类型不匹配"，麻烦帮忙看看，代码如下：
Option Explicit
Dim dic_comBoxOne As New Dictionary
Private Sub ComboBox1_Change()
    Dim arrK As Variant
    ComboBox2.Clear
    '二级下拉框对应的是第一级字典的键值为键的字典
    arrK = dic_comBoxOne(ComboBox1.Value).Keys
    ComboBox2.List = arrK
End Sub

Private Sub ComboBox2_Change()
    Dim arrK As Variant
    ComboBox3.Clear
    '三级下拉框对应的是第二级字典的键值为键的字典
    arrK = dic_comBoxOne(ComboBox1.Value)(ComboBox2.Value).Keys
    ComboBox3.List = arrK
End Sub

Private Sub UserForm_Initialize()
    Dim arr_curRegion As Variant '定义数组
    Dim i, j, nRow As Integer '临时变量
    Dim key_comOne, key_comTwo, key_comThree As String
    arr_curRegion = Sheet1.Range("A1").CurrentRegion '生成一个二维数组
    nRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To nRow Step 1
        key_comOne = arr_curRegion(i, 1)
        key_comTwo = arr_curRegion(i, 2)
        key_comThree = arr_curRegion(i, 3)
        If (Not dic_comBoxOne.Exists(key_comOne)) Then
            Set dic_comBoxOne(key_comOne) = CreateObject("scripting.dictionary")
            If dic_comBoxOne(key_comOne).Exists(key_comTwo) Then
               Set dic_comBoxOne(key_comOne)(key_comTwo) = CreateObject("scripting.dictionary")
            End If
        End If
        dic_comBoxOne(key_comOne)(key_comTwo)(key_comThree) = ""
    Next
    ComboBox1.List = dic_comBoxOne.Keys
End Sub

microyip

scarcity 发表于 2019-10-20 18:23
老师，你好！ 按照之前的思路，想多一层，如: xxx省xxx市xxx区，但报错"类型不匹配"，麻烦帮忙看看，代码 ...