Public Sub TNodeToXml(trvw As TreeView, Optional NodeK As String, Optional Tabs As String = "")

Dim i As Integer, k As Integer
Dim NodekT As String
Dim StrOver As String

If Len(NodeK) = 0 Then
   NodeK = trvw.Nodes(1).key
   If Dir(CurrentProject.Path & "\tt.xml") <> "" Then Kill CurrentProject.Path & "\tt.xml"
   Open CurrentProject.Path & "\tt.xml" For Output As #1
   Print #1, "<?xml version=""1.0"" encoding=""GB2312"" ?>"
   Print #1, "<Node Label=""" & trvw.Nodes(1).text & """>"
End If

k = trvw.Nodes(NodeK).Children

For i = 1 To k

   If i = 1 Then
      NodekT = trvw.Nodes(NodeK).Child.key
   Else
      NodekT = trvw.Nodes(NodekT).Next.key
   End If
   If trvw.Nodes(NodekT).Children = 0 Then StrOver = "/" Else StrOver = ""
   Print #1, Tabs & vbTab & "<Node Label=""" & trvw.Nodes(NodekT).text & """" & StrOver & ">"
   Call TNodeToXml(trvw, NodekT, Tabs & vbTab)

Next i

If k > 0 Then Print #1, Tabs & "</Node>"
If NodekT = trvw.Nodes(1).Child.LastSibling.key Then Close #1

End Sub

---------------------

調用時

Call TNodeToXml(trvw.Object) '注 trvw 為 你所要導出的treeview控件名

(責任編輯：admin)

• ·關于 Partition 函數在分組查詢中的應
• ·Access算術運算符的含義和說明表
• ·mid函數的另類用法
• ·access制作程序運行進度框
• ·Function與Sub的異同（函數調用）
• ·Access判斷某個數值是否為某個數據類型
• ·select case后面語句塊的值的四種格式
• ·vba條件語句的兩種表示方法
• ·Access幾種數據類型初始化的值
• ·Access vba null與＂＂空字符串的區(qū)別
• ·access vba 數據類型表
• ·Access變量的命名規(guī)則
• ·Access中EXIT Sub與End Sub的區(qū)別
• ·Access vba中參數前關鍵字ByRef和ByVal
• ·Access列表框快速全選的技巧【最快】
• ·vba函數的數據類型強制轉換