- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 目录树的节点如何能带记录数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24359)
-- 发布时间：2012/10/11 16:27:00
-- 目录树的节点如何能带记录数
想在目录树的节点后面带上符合节点条件的记录数，以便对符合的记录数一目了然
不会写代码，求助！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
此主题相关图片如下：无标题.png
-- 发布时间：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 18:50:00
--
呵呵，你可没有白做，条条道路通罗马嘛。
-- 发布时间：2012/10/11 20:41: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
感谢狐爸，调试成功
想再问一下，觉得目录树的白色背景不好看，想换成任务页面的形式，，在“部门”页面下，根据不同的部门名，生成相应名称的任务，并能跟记录数
这个该怎么写代码呢？
此主题相关图片如下：无标题.png
-- 发布时间：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
-- 发布时间：2012/10/11 21:27: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
好用，感谢！
-- 发布时间：2012/10/11 21:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目14.table |
-- 发布时间：2012/10/13 21:01:00
--
我也奉新一个计算 多层目录树节点数目的树显示算法
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Nodes.Count > 0 Then
If nd.Nodes.Count = nd.AllNodes.count Then
nd.text = nd.text & "(" & nd.nodes.count &")"
Else
Dim Endjd As Integer = 0
For Each nd1 As winform.treenode In nd.allnodes
If nd1.nodes.count = 0 Then
endjd = endjd +1
End If
Next
nd.text = nd.text & "(" & nd.nodes.count &"|" & Endjd &")"
End If
End If
Next
显示效果、
此主题相关图片如下：2012-10-13_210918.jpg
-- 发布时间：2012/10/14 7:35:00
--
此主题相关图片如下：2012-10-13_210918.jpg
哥子，我老家就是第三个节点“万载”的，你点开后，是不是有“龙牙百合粉”的
-- 发布时间：2012/10/14 9:21:00
--
当然有了。
呵呵，居然在狐表里也能碰到老乡呀。
目前在哪里发展呀