：treeview中，怎样遍历树？我想把他存入数据库，不同的节点存入不同的表。急，在线等待中

[gwolf]

[applekiller]

什么意思，你是想保存TreeView吗？

[foolishtiger]

' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-21
'Description:要试用本例请在窗体中填加一个TreeView和一个按钮
' 然后在代码窗体中粘贴如下代码
' Good luck!

Option Explicit

Private Sub Command1_Click()
Dim nodEach As Node

For Each nodEach In TreeView1.Nodes
Select Case Left(nodEach.Key, 1)
Case "p", "P"
MsgBox nodEach.Text & " 存到图片库", vbInformation
Case "t", "T"
MsgBox nodEach.Text & " 存到文本库", vbInformation
Case Else
End Select
Next
End Sub

Private Sub Form_Load()
Command1.Caption = "保存"
With Me.TreeView1
.Nodes.Add , , "P1", "图片1"
.Nodes.Add , , "T1", "文本1"

.Nodes.Add , , "T2", "文本2"
.Nodes.Add , , "P2", "图片2"

.Nodes.Add , , "T3", "文本3"
.Nodes.Add , , "P3", "图片3"
End With
End Sub