Private Sub Loadtreeview()
Dim Nodex As Node
Dim NodeTable As String
NodeTable = "select * from CailiaoID"
TreeView1.Nodes.Clear
rs.Open NodeTable, con, 1, 3
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While rs.EOF = False
If Trim(rs.Fields("IDparent")) = "-1" Then
Set Nodex = TreeView1.Nodes.Add(, , "key" + Trim(rs.Fields("NameID")), _
Trim(rs.Fields("name")))
Else
Set Nodex = TreeView1.Nodes.Add("key" + Trim(rs.Fields("IDparent")), tvwChild, _
"key" + Trim(rs.Fields("NameID")), Trim(rs.Fields("name")))
End If
rs.MoveNext
Loop
End If
rs.Close
End Sub
评论0
最新资源