Foxtable(狐表)用户栏目专家坐堂 → 如何能将按照两种不同指定数据列生成的目录树合在一起


  共有2034人关注过本帖树形打印复制链接

主题:如何能将按照两种不同指定数据列生成的目录树合在一起

帅哥哟,离线,有人找我吗?
mxm121
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:392 积分:3026 威望:0 精华:0 注册:2014/9/20 23:56:00
如何能将按照两种不同指定数据列生成的目录树合在一起  发帖心情 Post By:2015/11/23 17:02:00 [只看该作者]

同一个表内的数据 按照不同的数据列生成树 想合并起来在一个树下显示 这个如何实现呢

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/23 17:25:00 [只看该作者]

方法一:加一列表达式,然后把多列合并成一列;

 

方法二:生成以后,循环每一个节点,把值填上去

 

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点

    nd.Text = nd.DataRow("区号") & "|" & nd.DataRow("邮编")

Next


 回到顶部
帅哥哟,离线,有人找我吗?
mxm121
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:392 积分:3026 威望:0 精华:0 注册:2014/9/20 23:56:00
  发帖心情 Post By:2015/11/23 17:46:00 [只看该作者]

不是这个意思  是比如原有两个树  一个是按照 客户级别|客户分类 生成的 另一个是按照客户分类|客户级别生成的  现在想把他们在一个树下显示  0级为自己插入的一个所有数据节点  1级为刚才生成的两个树的一级。。。。 这样子的

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/23 18:15:00 [只看该作者]

对拷即可。

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim ls As New List(Of Object)
ls.add(trv2.Nodes(0))
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level >= 1 Then
        Dim idx As Integer = nd.level-1
        Dim nnd = ls(idx).Nodes.Add(nd.Name, nd.Text)
        If nd.Nodes.count > 0 Then
            If idx >= ls.count - 1 Then
                ls.add(nnd)
            Else
                ls(idx+1) = nnd
            End If
        End If
    End If
Next


 回到顶部