Public Sub TNodeToXml(trvw As TreeView, Optional NodeK As String, Optional Tabs As String = "") Dim i As Integer, k As Integer If Len(NodeK) = 0 Then k = trvw.Nodes(NodeK).Children For i = 1 To k If i = 1 Then Next i If k > 0 Then Print #1, Tabs & "</Node>" End Sub --------------------- 调用时 Call TNodeToXml(trvw.Object) '注 trvw 为 你所要导出的treeview控件名 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-5-6 11:45 , Processed in 0.077497 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.