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

此主题相关图片如下：1.bmp

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

隶属于2大类的小类，怎么跑到4类去了？望指点。。（非自动生成）

急待解决

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

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

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)
Dim drs As List(Of DataRow) = DataTables("tProductType").Select("[fName] Is Not Null", "fCode,fName Desc")
For Each dr as DataRow in drs '.Count - 1
    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

辛苦了，OK了，呵呵