- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 【求助】目录树节点显示子节点数的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126631)
-- 发布时间：2018/10/25 15:36:00
-- 【求助】目录树节点显示子节点数的问题
我在窗口设计目录树时想在目录树的节点的而后面直观显示该节点下的子节点的数量，但根据帮助的内容写代码显示出错，不知错在哪里，帮助指点一下
此主题相关图片如下：剪辑.jpg
我编写的代码如下：
Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("松北所居委会信息汇总表"))
b.Groups.AddDef("街道")
b.Groups.AddDef("居委")
b.Totals.AddDef("居委",AggregateEnum.Count,"居委数") \'根据居委列来统计居委数
dt = b.Build(True)
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "街道|居委")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim jd As String = nd.DataRow("街道")
Select Case nd.Level
Case 0
nd.Text = nd.text & "(" & nd.DataRow("居委数") & "个)"
End Select
Next
trv.Nodes.Insert("加载所有数据","加载所有数据(" & dt.Compute("Sum(居委数)") & "个)",0)
trv.ResumeRedraw
-- 发布时间：2018/10/25 15:38:00
--
譬如九里亭街道应该是16个居委，后面括号内应该是16而不是1.
-- 发布时间：2018/10/25 15:49:00
--
Case 0
nd.Text = nd.text & "(" & dt.Compute("Sum(居委数)","街道 = \'" & nd.DataRow("街道") & "\'") & "个)"
-- 发布时间：2018/10/25 17:36:00
--
谢谢