为何访问兰、配置兰不能形成目录树（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.Nodes.Clear
For Each itm As object In QAT.Items
    Dim nd As object = tv.Nodes.Add(itm.Name)
    If itm.Gettype.name <> "Button" Then
        For Each citm As object In itm.items
            Dim cnd As object = nd.Nodes.Add(citm.Name)
            If citm.Gettype.name <> "Button" Then
                For Each ccitm As RibbonMenu.RibbonItem In citm.items
                    Dim ccnd As object = cnd.Nodes.Add(ccitm.Name)
                Next
            End If
        Next
    End If
Next

主题：为何访问兰、配置兰不能形成目录树（已解决）