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

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

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

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

达不到我要的效果

我需要的效果如下图:

 

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

实例:

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

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

当上级节点 = 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

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

1楼有上传过实例

 

数据表: 表B

窗口中的"生成目录树"按钮

还有一个问题是,生成目录树之后,我点击根节点,所有上级节点=0的数据都展示出来了,

我只需要展示生成的19个节点,NodeMouseClick 事件中我需要怎么设置

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

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

把表改成表B就可以了,我把数据粘贴到表B了

参考一楼

Dim  rts As  String() =  {"全部","公司名称","体系类别","部门人员","产品分类","仓库地点","数量组","供应商","现金流量","产品线","材料成本","固定成本","损益","银行1","成本核算","成本2","银行2","事业部","物流"}
Dim lbms As Integer() = {0,1,2,3,4,5,7,8,9,201,203,204,221,224,230,235,236,301,302} '类别码数组

For i As Integer = 0 To rts.Length-1

    Dim j As Integer = lbms()   '这里有问题.  需求描述:现有类别码如上面的数组, 类别码的数组要跟string()数组的value一一对应.

                                                                           当类别码=0的时候,根节点名字=全部, 类=1时,根节点名字=公司名称.......这样
        
       ' For Each  rt As  String In  rts
           
         '   tr.Nodes.Add(rt)
       ' Next
          
Next

已自己解决,谢谢甜大蓝大