Foxtable(狐表)用户栏目专家坐堂 → 这样的目录树如何生成呢?


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

主题:这样的目录树如何生成呢?

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


加好友 发短信
等级:六尾狐 帖子:1207 积分:7230 威望:0 精华:0 注册:2013/3/4 18:02:00
这样的目录树如何生成呢?  发帖心情 Post By:2013/8/20 14:27:00 [只看该作者]

两列取值,一列编码,一列描述

我只需要取一个节点

节点样式为

编码|描述


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20130820142324.jpg
图片点击可在新窗口打开查看

trv.BuildTree(dt,"规格描述|存货编码","存货类型 = '辅材'")

用BuildTree只能生成这样的节点样式

我要的是

彩卡-白色|FSD-0901

这样的

求大神给个解决办法


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/8/20 14:30:00 [只看该作者]

很简单:

trv.BuildTree(dt,"存货编码","存货类型 = '辅材'")

for nd as winform.TreeNode in trv.Allnodes

    dim dr as datarow in dt.datarows

    dr = dt.find("存货编码= '" & nd.Text & "' And 存货类型 = '辅材'" )

    nd.text = nd.text & "|" & dr("规格描述")

next


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/8/20 14:32:00 [只看该作者]

只能使用编码自己手动生成了.

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


加好友 发短信
等级:六尾狐 帖子:1207 积分:7230 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/8/20 14:36:00 [只看该作者]

以下是引用狐狸爸爸在2013-8-20 14:30:00的发言:

很简单:

trv.BuildTree(dt,"存货编码","存货类型 = '辅材'")

for nd as winform.TreeNode in trv.Allnodes

    dim dr as datarow in dt.datarows

    dr = dt.find("存货编码= '" & nd.Text & "' And 存货类型 = '辅材'" )

    nd.text = nd.text & "|" & dr("规格描述")

next

狐爸,你这 dim dr as datarow in dt.datarows

是要用for each 来循环吧


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/8/20 14:37:00 [只看该作者]

笔误: 

 

trv.BuildTree(dt,"存货编码","存货类型 = '辅材'")
For nd As winform.TreeNode In trv.Allnodes
    Dim dr As DataRow
    dr = dt.find("存货编码= '" & nd.Text & "' And 存货类型 = '辅材'" )
    nd.text = nd.text & "|" & dr("规格描述")
Next

[此贴子已经被作者于2013-8-20 14:37:22编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/8/20 14:37:00 [只看该作者]

明显是的,少了个 Each你自己补一下就好.

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1207 积分:7230 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/8/20 14:47:00 [只看该作者]

谢谢,解决了!

 回到顶部