以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  节点怎么增加数据统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118828)
--  作者：yifan3429
--  发布时间：2018/5/11 17:46:00
--  节点怎么增加数据统计

Dim cmd As New SQLCommand
Dim dt As DataTable

dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"楼盘|收客部门|客户等级", "", "楼盘 DESC,收客部门,客户等级")
\'trv.Nodes.Insert("加载所有数据",0)DESC


节点怎么增加数据统计第一级就好  楼盘做下汇总行数
[此贴子已经被作者于2018/5/11 17:46:07编辑过]
--  作者：有点色
--  发布时间：2018/5/11 18:02:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2742.htm

 
--  作者：yifan3429
--  发布时间：2018/5/11 18:58:00
--  

For Each nd As WinForm.TreeNode In trv.AllNodes
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "楼盘(" & dt.Compute("Sum(终端用户)","收客部门 "户)"
        Case 2
            nd.Text = nd.text & "(" & nd.DataRow("订单数") & ")"

    End Select
Next


表名 终端用户 
统计  楼盘 列 有多少行
--  作者：有点甜
--  发布时间：2018/5/11 19:06:00
--  
For Each nd As WinForm.TreeNode In trv.AllNodes
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "楼盘(" & DataTables("终端用户").Compute("count(楼盘)","楼盘=\'" & nd.Text & "\'") & )"
        Case 2
    End Select
Next