treeview节点有重复，却都归到第一个，如何解决

lijichao3010

请直接看6楼

[ 本帖最后由 lijichao3010 于 2010-8-26 16:21 编辑 ]

jygzcj

帮你顶，我也很期待啊/

fsyyyy

不太明白楼主要什么样式的列表，做了个，如附图，如果是这样的形式，那代码如下：

Private Sub UserForm_Initialize()
    On Error Resume Next
    With Sheets("sheet1")
        Const rule = "rule"
        Set Rng = .Range("f4:f" & .[a65536].End(xlUp).Row)
        With TreeView1
            .Style = tvwTreelinesPlusMinusPictureText
            .LineStyle = tvwRootLines
            .CheckBoxes = False
            .Nodes.Clear
            .Nodes.Add , , rule, rule
            For Each xcell In Rng
                i = i + 1
                .Nodes.Add rule, tvwChild, xcell(1, -2).Value, xcell(1, -2).Value
                .Nodes.Add xcell(1, -2).Value, tvwChild, xcell(1, -1).Value, xcell(1, -1).Value
                .Nodes.Add xcell(1, -1).Value, tvwChild, xcell(1, 0).Value, xcell(1, 0).Value
                .Nodes.Add xcell(1, 0).Value, tvwChild, xcell.Value & i, xcell.Value
            Next
        End With
    End With
End Sub

lijichao3010

太感谢了您了

fsyyyy

.Nodes.Add A, tvwChild,B,C

A：子节点的上一层
B：子节点的关键词（唯一）
C：子节点显示的内容

xcell(1, -2)是xcell向左偏移3列，既xcell=F4，xcell(1, -2)=C4

lijichao3010

谢谢指导
又出现新问题了，这种情况怎么解决

lijichao3010

顶啊顶啊

fsyyyy

For Each xcell In Rng
                i = i + 1
                K1 = xcell(1, -2).Value
                K2 = K1 & xcell(1, -1).Value
                K3 = K2 & xcell(1, 0).Value
                .Nodes.Add rule, tvwChild, K1, xcell(1, -2).Value
                .Nodes.Add K1, tvwChild, K2, xcell(1, -1).Value
                .Nodes.Add K2, tvwChild, K3, xcell(1, 0).Value
                .Nodes.Add K3, tvwChild, xcell.Value & i, xcell.Value & Format(xcell(1, -3).Value, "000000")
            Next

另，注意 Format(xcell(1, -3).Value, "000000")  部分，个人认为应该是取【编码】字段，如果不是，那就改为你原先的代码咯。

lijichao3010

崇拜，太感谢您了，我好好研究下
最后那个是在取编码

1Long

这段代码好象效率比较低, 能不能先判断再是否重复再加入节点? 我也是为这事头痛:
我想要做的表结构是这样的, 跟楼主的基本一样:
按地区分类      中国   广东   深圳
按地区分类    中国   广东   广州
按地区分类    中国   广东   东莞
按地区分类    中国   江苏   苏州
按地区分类    中国   江苏   XX