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

标题：目录树问题

1楼

wqc360 发表于：2009/12/31 13:22:00

示范文件目录树中，能否生成这样的目录树：
根节点一命名为“按产品”，接下来第2、3、4，子节点为“订单”表的“产品”、“客户”、“雇员”列。
根节点二命名为“按客户”，接下来第2、3、4，子节点为“订单”表的“客户”、“产品”、“雇员”列。
根节点二命名为“按雇员”，接下来第2、3、4，子节点为“订单”表的“雇员”、“客户”、“产品”列。
以及相应的展开筛选代码应该怎么写，谢谢

2楼

mr725 发表于：2009/12/31 14:11:00

根节点改为标签不是很方便吗？

3楼

wqc360 发表于：2009/12/31 14:16:00

怎么做，请帮忙做一个示范，谢谢

4楼

mr725 发表于：2009/12/31 16:50:00

以下是引用wqc360在2009-12-31 14:16:00的发言：
怎么做，请帮忙做一个示范，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:ym.rar

[此贴子已经被作者于2009-12-31 16:50:01编辑过]

5楼

wqc360 发表于：2009/12/31 17:19:00

能否搞一个不用页面集合的，就是自定义目录树节点加数据表生成节点和在一起，期待，谢谢

6楼

wqc360 发表于：2009/12/31 17:43:00

感谢mr725提供思路，页面集合搞出来野蛮好的，再次谢谢

7楼

yangming 发表于：2010/1/1 12:44:00

我发一个导航栏加目录树，将窗口文件放在订单中试

下载信息 [文件大小：下载次数： ]
点击浏览该文件:导航栏目录树.rar

8楼

yangming 发表于：2010/1/1 12:54:00

将导航栏的

SelectedIndexChanged

事件代码改成这样，就可以移动相关列到第一列
Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
if Bar.SelectedIndex = 0 Then
CurrentTable.Cols("产品").Move(0)
e.Form.Controls("TreeView1").BuildDataTree("订单", "", "产品", "客户", "雇员")
End If
if Bar.SelectedIndex = 1 Then
CurrentTable.Cols("客户").Move(0)
e.Form.Controls("TreeView2").BuildDataTree("订单", "", "客户", "产品", "雇员")
End If
if Bar.SelectedIndex = 2 Then
CurrentTable.Cols("雇员").Move(0)
e.Form.Controls("TreeView3").BuildDataTree("订单", "", "雇员", "产品", "客户")
End If

9楼

wqc360 发表于：2010/1/1 18:01:00

多谢yangming版主的有一个思路，祝元旦快乐。

10楼

yangming 发表于：2010/1/1 21:14:00

再上传一个另加一个辅助表的目录树，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:另加表目录树.table

完全达到楼主的要求

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