[求助]关于树形目录的节点求助！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

你不排序的话,就是按照输入顺序了,正确的代码应该是:

Dim tabmb As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
tables("产品类型基础资料1_Table1").fill("select * from tProductType","zmsteel",false)
For Each dr as DataRow in tables("产品类型基础资料1_Table1").DataTable.Select("","fCode")
    If dr.IsNull("fParentCode") Then
        nd =tr.Nodes.Add("root1","" & dr("fCode") & " " & dr("fname") & "")
    else
        nd.Nodes.Add("Sub1"," " & dr("fCode") & " " & dr("fname") & " ")
    End If
Next

主题：[求助]关于树形目录的节点求助！