以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请老师帮忙修改这个目录树代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13015)
--  作者：kevin
--  发布时间：2011/9/24 14:40:00
--  请老师帮忙修改这个目录树代码

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("产品管理").Controls("TreeView1")
For Each r As Row In Tables("产品大类").Rows
    For Each rr As Row In Tables("产品类").Rows            
        For Each rrr As Row In Tables("品牌分类").Rows    

            nd = Tr.Nodes.Add(r("产品名称"))   \'第一个表的产品名称
            nd = nd.Nodes.Add(rr("产品名称"))   \'第二个表的产品名称
            nd = nd.Nodes.Add(rrr("产品名称"))    \'第三个表的产品名称
        Next
    Next
Next

 

以上代码能显示每个表的信息，问题却是这样：图片点击可在新窗口打开查看变成数据重复了，麻烦老师帮忙修改一下
--  作者：mr725
--  发布时间：2011/9/24 15:00:00
--  
没有条件不重复才怪呢！ 还是专门做个产品分类表来生成目录树吧，这样简单的多。
--  作者：kevin
--  发布时间：2011/9/24 15:09:00
--  
以下是引用mr725在2011-9-24 15:00:00的发言：
没有条件不重复才怪呢！ 还是专门做个产品分类表来生成目录树吧，这样简单的多。

我是新手，给个思路好吗？

 
--  作者：mr725
--  发布时间：2011/9/24 15:17:00
--  

产品类别 产品名称
a             a1
a             a2
a             a3
b             b1
b             b2
b             b5
c             c1
c             c2
c             c3
c             c4
c             c5