请教Tiger_Zhao老师：关于树节点的取值！

Question

'多次得到Tiger_Zhao老师的帮助，实在感激不尽！请老师允许我再次请教！'数据例子：
＋所有记录
        －2008年
            －2008年－1月份
                  －部门1
                  －部门2
                  －部门3
        －2009年
            －2009年－1月份
                  －部门1
                  －部门2
                  －部门3'问题：如何实现点击子节点后取到父子节点的值出来呢？      '例如点击2008年－1月份后，
      '显示了：
                  －部门1
                  －部门2
                  －部门3 ，
'那么接着点击部门1后我想用SQL语句来取到2008年－1\部门1\的数据。'难点是：能得到整个树节点TreeView1.SelectedItem.FullPath = "所有记录\2008年\2008年－1月份\部门1"后，
'不知道该怎么来继续做了！！请Tiger_Zhao老师指点！
             '代码：
Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
Dim treeFlag As String
Dim treepath As String
treeFlag = Left(Node.Key, 1)Select Case treeFlag
    Case Is = "A"
            Me.ListView1.ListItems.Clear
            
    Case Is = "B"
            Me.ListView1.ListItems.Clear
            
    Case Is = "C"
            Me.ListView1.ListItems.Clear
            
    Case Is = "D"
            treepath = TreeView1.SelectedItem.FullPath 'tree完整路径
            'SQL语句
End Select
End Sub

Answer 1

http://www.google.cn/search?hl=zh-CN&q=treeview+%E5%AD%90%E8%8A%82%E7%82%B9+%E9%80%92%E5%BD%92&aq=0&oq=要善用google

Answer 2

点名由Tiger_Zhao来回答，我等不便参与，楼主干脆拜他为师吧

Answer 3

Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
    Dim treeFlag As String
    Dim sql As String
    
    treeFlag = Left(Node.Key, 1)
    Select Case treeFlag
        Case "A"
            Me.ListView1.ListItems.Clear        Case "B"
            Me.ListView1.ListItems.Clear        Case "C"
            Me.ListView1.ListItems.Clear        Case "D"
            sql = "SELECT * FROM ll" & _
                  " WHERE 所属年月份 = '" & Node.Parent.Text & "'" & _
                    " AND 部门 = '" & Node.Text & "'"
            ...
    End Select
End Sub