VB 关于TreeView显示三层节点的问题

VB 关于TreeView显示三层节点的问题

Dim rs As New ADODB.Recordset
    sql = "Select * From [sunglasses]"
    Set rs = getrs(sql, "Products")
    If Not rs.EOF Then
        TreeView1.Nodes.Clear
        'If rs.RecordCount > 0 Then’这个判断省了也没关系
        For I = 1 To rs.RecordCount
            If Not IsExistNode("MYKEY_" & Trim(rs.Fields("省")), TreeView1) Then
                TreeView1.Nodes.Add , , "MYKEY_" & Trim(rs.Fields("省")), rs.Fields("省")
            End If
            '少了个判断项，检查市没有的话在省下添加市
            If Not IsExistNode("MYKEY_" & Trim(rs.Fields("市")), TreeView1) Then
                TreeView1.Nodes.Add "MYKEY_" & Trim(rs.Fields("省")), tvwChild, "MYKEY_" & Trim(rs.Fields("市")), rs.Fields("市")
            End If
            '在市下添加县
            TreeView1.Nodes.Add "MYKEY_" & Trim(rs.Fields("市")), tvwChild, "R" & I, rs.Fields("县")
            rs.MoveNext
        Next
        rs.Close
        'End If
    End If
    Set rs = Nothing

多层节点与二层节点其实没有太大的区别，关键是你设计时的代码是如何实现的。 如果节点连接的是数据库，监测记录的id就可以，在点击时使用这个id即可。 如果不是数据库的记录，那么在代码中设计一个关键字，点击时根据这个关键字连接即可。 由于你的问题含糊，不能给你具体的例子。