以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  新手 请教目录树问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34597)

--  作者：ahtlzhujun --  发布时间：2013/6/9 22:31:00 --  新手 请教目录树问题 客户表中有客户代码、客户名称、所属地区三个字段，现在要求目录树显示：第一节点为“所属地区”，下属节点为“客户代码  客户名称”，也就是说客户代码与客户名称中间有个空格，并列显示在同一级节点上，如何实现？谢谢

--  作者：sloyy --  发布时间：2013/6/9 23:20:00 --   必须有分隔符

--  作者：狐狸爸爸 --  发布时间：2013/6/13 9:49:00 --   可以，你根据所属地区和客户代码两列生成目录树，然后遍历节点，逐个节点设置节点标题即可。   http://www.foxtable.com/help/topics/2302.htm   Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") tv.BuildTree("订单", "产品|客户|雇员") For Each nd As WinForm.TreeNode In trv.AllNodes     if nd.Level = 1 Then         dim ps() As string = nd.Fullpath.split("\\")         dim dr as datarow = DataTables("数据表").find("所属地区 =\'" & ps(0) & "\' and 客户代码 = \'" & ps(1) & "\'")          if dr isot nothing then               nd.text = nd.text & " " & dr("客户名称")          end if     end If Next