共4 条记录, 每页显示 10 条, 页签: [1]

标题：请老师帮忙修改这个目录树代码

1楼

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

以上代码能显示每个表的信息，问题却是这样：图片点击可在新窗口打开查看变成数据重复了，麻烦老师帮忙修改一下

2楼

mr725 发表于：2011/9/24 15:00:00

没有条件不重复才怪呢！还是专门做个产品分类表来生成目录树吧，这样简单的多。

3楼

kevin 发表于：2011/9/24 15:09:00

以下是引用mr725在2011-9-24 15:00:00的发言：
没有条件不重复才怪呢！还是专门做个产品分类表来生成目录树吧，这样简单的多。

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

4楼

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

共4 条记录, 每页显示 10 条, 页签: [1]