主题：[求助]关于目录树自动生成

比如有三列：项目组          基金名称            年度

                 北京组         中石油1号           2011

                 北京组         中石油1号           2013

                 北京组          大众汽车            2012

                 上海组          众安房产            2012

                 上海组          申通快递            2012

                 上海组          申通快递            2012

 

如何自动生成一棵三级目录树：项目组-基金名称-年度？

 

数据是不断增长的，所以不能只针对这些数据写死代码，我想过三重for循环，但是写不好，求高手~~~

上例子.

递归例子不行啊，我的意思就是像加载树的效果，系统有自带的加载树嘛，递归的那些列不是数据来源列，他是参照列。

 

 

 

案例：

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

点击浏览该文件:案例.rar

 

效果如加载树

你上个例子看看吧.

 如下，参考帮助。

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("客户信息")
tr.StopRedraw()
tr.Nodes.Clear
nd = tr.Nodes.Insert("返回","返回",0)

If _username = "admin" Or _usergroup = "经理" Then
   nd = tr.Nodes.Add("客户信息" ,"客户信息")
   tr.BuildDataTree("客户信息" , "[审核情况] = 1" , "项目组" , "基金名称" , "年度")
   nd = tr.Nodes.Add("未审核客户信息","未审核客户信息")
   tr.BuildDataTree("客户信息" , "[审核情况] = 0" , "项目组" , "基金名称" , "年度")
End If

If _usergroup = "录入员" Then
   nd = tr.Nodes.Add("客户信息" ,"客户信息")
   tr.BuildDataTree("客户信息" , "[审核情况] = 1 and [录入人] = '" & _username & "'" , "项目组" , "基金名称" , "年度")
   nd = tr.Nodes.Add("未审核客户信息","未审核客户信息")
   tr.BuildDataTree("客户信息" , "[审核情况] = 0 and [录入人] = '" & _username & "'" , "项目组" , "基金名称" , "年度")
End If

If _usergroup = "查询员" Then
   nd = tr.Nodes.Add("客户信息" ,"客户信息")
   tr.BuildDataTree("客户信息" , "[审核情况] = 1" , "项目组" , "基金名称" , "年度")
End If
nd.ExpandAll
tr.ResumeRedraw()

 

请帮我看看，结点生成不好。

nd = tr.Nodes.Insert("返回","返回",0)

这个返回结点也生成不了。

你就更新2013版本自己看着例子做吧,苦守2012干嘛?  2013版已经很稳定了,也不2012版好用.

你好，我又做了个案例：

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

点击浏览该文件:案例.rar

 

 

就是在树的最前显示两个一级结点，一个是“返回”，另一个是“客户信息”，然后的二三四级结点都是“客户信息”的子节点，请帮我看看代码，总显示二三四级结点，“返回”和“客户信息”怎么弄上去？

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

点击浏览该文件:管理项目4.foxdb

谢谢狐爸！衷心感谢！！！