目录树的节点如何能带记录数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树的节点如何能带记录数

共有10663人关注过本帖树形打印复制链接主题：目录树的节点如何能带记录数

paullqxp

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：518 积分：4773 威望：0 精华：1 注册：2011/11/23 20:48:00

目录树的节点如何能带记录数 发帖心情

Post By：2012/10/11 16:27:00 [只看该作者]

想在目录树的节点后面带上符合节点条件的记录数，以便对符合的记录数一目了然

不会写代码，求助！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

此主题相关图片如下：无标题.png

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/10/11 17:08:00 [只看该作者] 用户已被锁定

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/10/11 17:18:00 [只看该作者]

窗口的AfterLoad事件改为：

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.BuildTree("部门", "部门","部门<>''")
For Each nd As WinForm.TreeNode In tv.AllNodes
nd.text = nd.Text & "(" & DataTables("姓名").Compute("Count([_Identify])","部门 = '" & nd.Text & "'") & "人)"
Next

由于节点的Text属性已经变化，合成筛选条件的时候可以用节点的Name和FullName属性：

http://www.foxtable.com/help/topics/0898.htm

http://www.foxtable.com/help/topics/2622.htm

[此贴子已经被作者于2012-10-11 17:39:55编辑过]

muhua	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/10/11 17:36:00 [只看该作者] 用户已被锁定

muhua	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/10/11 18:05:00 [只看该作者] 用户已被锁定

狐狸爸爸

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/10/11 18:50:00 [只看该作者]

呵呵，你可没有白做，条条道路通罗马嘛。

paullqxp

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：518 积分：4773 威望：0 精华：1 注册：2011/11/23 20:48:00

Post By：2012/10/11 20:41:00 [只看该作者]

以下是引用狐狸爸爸在2012-10-11 17:18:00的发言：

窗口的AfterLoad事件改为：

感谢狐爸，调试成功

想再问一下，觉得目录树的白色背景不好看，想换成任务页面的形式，，在“部门”页面下，根据不同的部门名，生成相应名称的任务，并能跟记录数

这个该怎么写代码呢？

此主题相关图片如下：无标题.png

czy

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2012/10/11 21:07:00 [只看该作者]

Dim Page As WinForm.TopicPage
Page = e.Form.Controls("TopicBar1").Pages("部门")
For Each Name As String In DataTables("姓名").GetComboListString("部门").Split("|")
Page.Links.Add(Name,Name & "(" & DataTables("姓名").Compute("Count([_Identify])","部门 = '" & Name & "'") & "人)")
Next

paullqxp

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：518 积分：4773 威望：0 精华：1 注册：2011/11/23 20:48:00

Post By：2012/10/11 21:27:00 [只看该作者]

以下是引用czy在2012-10-11 21:07:00的发言：
Dim Page As WinForm.TopicPage
Page = e.Form.Controls("TopicBar1").Pages("部门")
For Each Name As String In DataTables("姓名").GetComboListString("部门").Split("|")
Page.Links.Add(Name,Name & "(" & DataTables("姓名").Compute("Count([_Identify])","部门 = '" & Name & "'") & "人)")
Next

好用，感谢！

czy

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2012/10/11 21:28:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目14.table

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：目录树的节点如何能带记录数