Question

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
TreeView1.Nodes.Add "MYKEY_" & Trim(rs.Fields("省")), tvwChild, "R" & I, rs.Fields("县")
rs.MoveNext
Next
rs.Close
End If
End If
Set rs = Nothing
End Sub
这些代码显示内容如下图：

但是只能显示二层节点，我需要能显示三层，把“省、市、县“都显示分层如下图

求助，请在我上面的代码处修改，不要告诉我什么思路，新手，度娘了好久没找到办法，求大侠帮忙，200悬赏奉上。





Answer 1

    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