Foxtable(狐表)用户栏目专家坐堂 → 【求助】目录树节点显示子节点数的问题


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

主题:【求助】目录树节点显示子节点数的问题

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


加好友 发短信
等级:童狐 帖子:261 积分:2156 威望:0 精华:0 注册:2018/4/30 16:00:00
【求助】目录树节点显示子节点数的问题  发帖心情 Post By: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


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


加好友 发短信
等级:童狐 帖子:261 积分:2156 威望:0 精华:0 注册:2018/4/30 16:00:00
  发帖心情 Post By:2018/10/25 15:38:00 [只看该作者]

譬如九里亭街道应该是16个居委,后面括号内应该是16而不是1.

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/25 15:49:00 [只看该作者]


        Case 0
            nd.Text = nd.text & "(" & dt.Compute("Sum(居委数)","街道 = '" & nd.DataRow("街道") & "'") & "个)"

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


加好友 发短信
等级:童狐 帖子:261 积分:2156 威望:0 精华:0 注册:2018/4/30 16:00:00
  发帖心情 Post By:2018/10/25 17:36:00 [只看该作者]

谢谢

 回到顶部