Foxtable(狐表)用户栏目专家坐堂 → 如何实现这样的目录树,动态的!


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

主题:如何实现这样的目录树,动态的!

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


加好友 发短信
等级:小狐 帖子:363 积分:2998 威望:0 精华:0 注册:2008/11/11 13:42:00
如何实现这样的目录树,动态的!  发帖心情 Post By:2009/2/14 10:18:00 [只看该作者]

如何实现如下这样的动态目录树,

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildDataTree("生产管理", "", "合同编号")

同时要求  [状态]='库存'



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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2009/2/14 10:21:00 [只看该作者]

建议认真看看帮助文件

自动生成目录树

目录树有一个BuildDataTree方法,可以根据指定的数据表内容生成目录树节点。

语法:

BuildDataTree(DataTableName, Filter, Column1, Column2, Column3...)

BuildDataTree(DataTable, Filter, Column1, Column2, Column3...)

DataTableName: 数据表名称
DataTable:    数据表
Filter:        过滤条件
Colum1,Column3,Column3:数据列名称,用这些列的数据生成目录树,可以指定多列。

示例

在窗口中加入一个目录树(TreeView),再加入一个按钮(Button),按钮的Click设置为:

Dim tv As WinForm.TreeView
tv =e.Form.Controls(
"TreeView1")
tv.BuildDataTree(
"订单", "", "产品", "客户", "雇员")

在运行的时候,单击该按钮,即可生成目录树节点


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


加好友 发短信
等级:小狐 帖子:363 积分:2998 威望:0 精华:0 注册:2008/11/11 13:42:00
  发帖心情 Post By:2009/2/14 10:43:00 [只看该作者]

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildDataTree("生产管理", "", "合同编号","[状态]='库存'")

这样写对吗?

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2009/2/14 10:47:00 [只看该作者]

以下是引用don在2009-2-14 10:21:00的发言:

建议认真看看帮助文件

自动生成目录树

目录树有一个BuildDataTree方法,可以根据指定的数据表内容生成目录树节点。

语法:

BuildDataTree(DataTableName, Filter, Column1, Column2, Column3...)

BuildDataTree(DataTable, Filter, Column1, Column2, Column3...)

DataTableName: 数据表名称
DataTable:    数据表
Filter:        过滤条件
Colum1,Column3,Column3:数据列名称,用这些列的数据生成目录树,可以指定多列。

示例

在窗口中加入一个目录树(TreeView),再加入一个按钮(Button),按钮的Click设置为:

Dim tv As WinForm.TreeView
tv =e.Form.Controls(
"TreeView1")
tv.BuildDataTree(
"订单", "", "产品", "客户", "雇员")

在运行的时候,单击该按钮,即可生成目录树节点

Filter在Column


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


加好友 发短信
等级:小狐 帖子:363 积分:2998 威望:0 精华:0 注册:2008/11/11 13:42:00
  发帖心情 Post By:2009/2/14 11:05:00 [只看该作者]

谢谢,搞定! 但是现在出现一个新的问题,原先:

NodeMouseDoubleClick的代码如下:
Dim ty As String = e.Form.Controls("TreeView1").SelectedNode.Text
Dim ls As WinForm.DataList = e.Form.Controls("DataList1")
ls.RowFilter = "[合同编号] = '" & ty & "'"

现在如何也增加上面的筛选呢?      [状态]='库存'

[此贴子已经被作者于2009-2-14 11:07:00编辑过]

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2009/2/14 11:26:00 [只看该作者]

看看这个
http://www.foxtable.com/dispbbs.asp?boardid=2&Id=501&page=4

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


加好友 发短信
等级:小狐 帖子:363 积分:2998 威望:0 精华:0 注册:2008/11/11 13:42:00
  发帖心情 Post By:2009/2/14 12:13:00 [只看该作者]

看不懂,慢慢学了!

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2009/2/14 12:33:00 [只看该作者]

以下是引用woodiy在2009-2-14 12:13:00的发言:
看不懂,慢慢学了!

看帮助文件的:
开发篇→事件编程→动态合成表达式


 回到顶部