Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]BuildTree 目录树的节点名称和标题可否不一样？


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

主题：[求助]BuildTree 目录树的节点名称和标题可否不一样？
帅哥哟，离线，有人找我吗？
111yangguojun
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：243 积分：1928 威望：0 精华：0 注册：2013/8/8 23:49:00 		[求助]BuildTree 目录树的节点名称和标题可否不一样？  发帖心情 Post By：2016/10/17 13:50:00 [只看该作者]

[求助]BuildTree 目录树的节点名称和标题可否不一样

因为生成目录树的字段数据进行了加密，绑定列显示的标题为加密后的数据，能否让显示的标题采用解密后的数据来显示
 回到顶部
帅哥哟，离线，有人找我吗？
111yangguojun
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：243 积分：1928 威望：0 精华：0 注册：2013/8/8 23:49:00 		  发帖心情 Post By：2016/10/17 14:01:00 [只看该作者]

图片点击可在新窗口打开查看有方法没？

 回到顶部
帅哥哟，离线，有人找我吗？
kylin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级：狐精 帖子：3030 积分：19188 威望：0 精华：2 注册：2008/9/1 7:50:00 		  发帖心情 Post By：2016/10/17 14:06:00 [只看该作者]

当然可以，节点本来就有Name与Caption之分，如果不指定Caption，则视同等于Name。
帮助多看一下，一点也不难。
如果解决不了，做个例子上传，会有人帮你完善的
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2016/10/17 14:19:00 [只看该作者]

可以：

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("订单", "产品|客户|雇员")
For Each nd As WinForm.TreeNode In tv.AllNodes
    tv.Text = tv.DataRow("标题列")
next


http://www.foxtable.com/webhelp/scr/2689.htm
http://www.foxtable.com/webhelp/scr/2302.htm
http://www.foxtable.com/webhelp/scr/0899.htm
 回到顶部
帅哥哟，离线，有人找我吗？
111yangguojun
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：243 积分：1928 威望：0 精华：0 注册：2013/8/8 23:49:00 		  发帖心情 Post By：2016/10/17 14:49:00 [只看该作者]

狐爸的方法试了下，没搞定，可能是我哪个地方搞错了吧。
我自己用了一个遍历做出了这个效果，贴出代码供大家借鉴：
DataTables("shares_股piao信息").LoadFilter = ""
DataTables("shares_股piao信息").Load

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dr As DataRow In DataTables("shares_股piao信息").DataRows
    If dr.isnull("挂牌代码") = False Then
        If trv.Nodes.Contains(DecryptText(dr("挂牌代码"),"m","#")) = False Then
            trv.Nodes.Add(DecryptText(dr("挂牌代码"),"m","#"))
        End If
        If  DecryptText(dr("挂牌代码"),"m","#") = Nothing Then
            Continue For
        Else
            trv.Nodes(DecryptText(dr("挂牌代码"),"m","#")).Nodes.Add(DecryptText(dr("股piao代码"),"m","#"))
        End If
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 15:02:00 [只看该作者]

上例子测试

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询