以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  这样的目录树如何生成呢？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39279)
--  作者：晕了快扶我
--  发布时间：2013/8/20 14:27:00
--  这样的目录树如何生成呢？

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

我只需要取一个节点

节点样式为

编码|描述


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

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

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

我要的是

彩卡-白色|FSD-0901

这样的

求大神给个解决办法
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2013/8/20 14:32:00
--  
只能使用编码自己手动生成了.
--  作者：晕了快扶我
--  发布时间：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 来循环吧
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2013/8/20 14:37:00
--  
明显是的,少了个 Each你自己补一下就好.
--  作者：晕了快扶我
--  发布时间：2013/8/20 14:47:00
--  
谢谢，解决了！