字典四级嵌套，相信很多人没用过

老鬼公公_31

老师，如果内容是数字的话好像不行，比如是年度，还有如果是用Assecc做数据库怎样连接

humanmagic

不用嵌套那么麻烦，一个字典就搞定了

1. Private Sub UserForm_Initialize()
   
2.     Dim arr, d As Object
   
3.     Dim i As Long, j As Long, str As String, strKey As String
   
4.     arr = Range("A2:D" & Cells(Rows.Count, 1).End(xlUp).Row).Value
   
5.     TreeView1.Nodes.Add , , "乡镇", "乡镇"
   
6.     Set d = CreateObject("Scripting.Dictionary")
   
7.     For i = LBound(arr) To UBound(arr)
   
8.         str = "乡镇"
   
9.         For j = LBound(arr, 2) To UBound(arr, 2)
   
10.             strKey = str
    
11.             str = str & arr(i, j)
    
12.             If Not d.Exists(str) Then
    
13.                 d.Add str, arr(i, j)
    
14.                 TreeView1.Nodes.Add strKey, tvwChild, str, arr(i, j)
    
15.             End If
    
16.         Next j
    
17.     Next i
    
18.     Erase arr
    
19.     Set d = Nothing
    
20. End Sub

复制代码

老鬼公公_31

老师，你的数据换成Assecc里的数据代码怎样写？

鄂龙蒙

请老师帮助，谢谢！
http://club.excelhome.net/thread-1437934-1-1.html

kuangben8

老师，有个问题我暂时解决不了了！请老师帮忙。
http://club.excelhome.net/thread-1446123-1-1.html

chxw68

kuangben8 发表于 2018-11-19 08:14
老师，有个问题我暂时解决不了了！请老师帮忙。
http://club.excelhome.net/thread-1446123-1-1.html

代码写好了。

Neverback_dq

chxw68 发表于 2018-11-19 09:11
代码写好了。

老师太厉害了，看帖写代码的速度这么快！

cjken

需要好好消化。

cjken

需要好好消化。

酷似内涵

lee1892 发表于 2013-11-28 18:24
楼主继续琢磨怎么让嵌套的层数是动态的，1楼的代码就会短不少，适用性也能提高。

接下来，再考虑不用字 ...

这个很简单啊，就是用if 嵌套If