主题：[求助]关于目录树

为了方便维护资料,先需要把表A中的数据做成目录树的形式筛选数据,

后续添加数据的时候可以在对应的节点添加.

我现在是按照类别码|层数|上级节点|名称 来生成目录树,

达不到我要的效果

我需要的效果如下图:

 

此主题相关图片如下：目录树.png

实例:

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

点击浏览该文件:目录树.rar

参考：http://www.foxtable.com/help/scr/2502.htm

当上级节点 = 0的时候,我要把类别码那一列根据类别码的不同设置为根节点,然后又根据类别码,上级节点和层数设置子节点

 

老是报错

 

For Each dr As DataRow In  dt.Select("","上级节点")
    Dim jd As Integer = dr("上级节点")
   ' Dim mc As String = dr("名称")
    If jd = 0 Then
        Dim  cd As Winform.TreeNode = nd.Nodes.Add(dr("类别码"),"类别码(" & dr("类别码") & ")")
    End If
Next

 

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


此主题相关图片如下：2.png

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.Nodes.Clear
Dim nd As WinForm.TreeNode
'nd=tr.Nodes.Add("0","全部")
Dim s1 As String = "select distinct ClassID as 级别 F ROM 表A"
cmd.CommandText = s1
dt = cmd.ExecuteReader     '查出的数据是19个,报超出index错误
Dim  rts() As  String =  {"全部","地址","体系资料","部门","产品分类","仓库地点","损益","供应商","现金流量","产品线","材料成本","固定成本","地址2","银行1","成本核算","成本2","银行2","事业部","物流"}

tr.StopRedraw()
tr.Nodes.Clear
For Each  rt As  String In  rts
    tr.Nodes.Add(rt)
Next

 

For Each   dr As DataRow In dt.Datarows
    Dim  i As  Integer = dr("级别")
    nd =  tr.Nodes(i).Nodes.Add(dr("级别"),"级别(" & dr("级别") & ")")
   
Next

根节点总共19个，索引最大18，"级别"肯定有大于18的值

我需要把根节点的数据重新命名,那还可以怎么做吗?

请上传具体实例说明

1楼有上传过实例

上传最新有问题代码的项目实例