有关TreeView的问题,急!

Question

用KEY值来存放编码字段
父结点加载的同时加载子结点

Answer 1

tvagt.Nodes.Clear
     Dim rsagt As New ADODB.Recordset
     Dim s As String
     Dim trs As String
    
     dim nodex as node     rsagt.Open "select * from wlagt", cnMain, adOpenDynamic, adLockReadOnly
     s = rsagt!wldwbh
     If Len(s) = 6 Then
        While Not rsagt.EOF
            set nodex=tvagt.Nodes.Add( , , rsagt!wldwbh, rsagt!zwmc)
                Add_Son_node nodex
            rsagt.MoveNext
        Wend
        rsagt.Close
     Else
         While Not rsagt.EOF
         tvagt.Nodes.Add , Mid(rsagt!wldwbh, 1, 6), tvwChild, rsagt!wldwbh, rsagt!mdg
         rsagt.MoveNext
         Wend
         rsagt.Close
    End If     
End SubPrivate Sub Add_Son_node(byval P_node as node)
    Dim son_rsagt As New ADODB.Recordset
    
     dim son_node as node     son_rsagt.Open "select * from wlagt where left(wldwbh,6)='" & P_node.key & "' and len(wldwbh)=7" , cnMain, adOpenDynamic, adLockReadOnly
        While Not son_rsagt.EOF
            set son_node=tvagt.Nodes.Add(P_node , tvwChild, son_rsagt!wldwbh, son_rsagt!zwmc)
            son_rsagt.MoveNext
        Wend
        son_rsagt.Close     end subPrivate Sub Form_Load()
db_ReadagtList
End Sub
试一试这段代码

Answer 2

sorry,,,update wrong code....Private Sub Add_Son_node(byval P_node as node).............................
set son_node=tvagt.Nodes.Add(P_node.key , tvwChild, son_rsagt!wldwbh, son_rsagt!zwmc)............end sub