以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树统计问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150351)
--  作者：lgz518
--  发布时间：2020/5/27 20:02:00
--  目录树统计问题
Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("客户"))
\'b.Groups.AddDef("交货日期",DateGroupEnum.Month,"月")
\'b.Groups.AddDef("产品名称")
b.Totals.AddDef("客户名称",AggregateEnum.Count,"订单数") 
b.Totals.AddDef("等级",AggregateEnum.Count,"订单数") \'

dt = b.Build(True) \'参数设置为True,生成一个临时表,不在主界面显示
Dim trv7 As WinForm.TreeView = e.Form.Controls("TreeView7")
trv7.BuildTree("生产流程", "等级")
\'trv7.Nodes.Insert("显示所有行",0)
trv7.StopRedraw
For Each nd As WinForm.TreeNode In trv7.AllNodes
    \'Dim Month As Integer = nd.DataRow("月")
    Dim gx As String = nd.DataRow("等级")
    Select Case nd.Level
        Case 0
       nd.Text = nd.text & "等级(" & dt.Compute("Sum(订单数)","等级 = " & gx) & "条)"
\'nd.Text = nd.text & "月(" & dt.Compute("Sum(订单数)","月 = " & Month) & "条)"
                    Case 1
            nd.Text = nd.text & "(" & nd.DataRow("订单数") & "条)"
    End Select
Next


报错：

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.12.17.18
错误所在事件：窗口,客户,AfterLoad
详细错误信息：
未找到列 [等级]。

需求：目录树，实现统计：如“等级”20条，等级下属目录"1级10条，2级10“
--  作者：sloyy
--  发布时间：2020/5/27 22:40:00
--  
tables("窗口1_table1").datasource=dt
先把dt 赋值给一个窗口表,检查看等级这个字段生成没有
[此贴子已经被作者于2020/5/27 22:40:28编辑过]
--  作者：有点蓝
--  发布时间：2020/5/28 9:38:00
--  
到命令窗口执行代码看看生成的统计表是怎么样的

Dim b As New GroupTableBuilder("统计表1",DataTables("客户"))
b.Totals.AddDef("客户名称",AggregateEnum.Count,"订单数") 
b.Totals.AddDef("等级",AggregateEnum.Count,"订单数") \'
b.Build()
--  作者：lgz518
--  发布时间：2020/5/28 9:57:00
--  
没加和加
tables("窗口1_table1").datasource=dt，也会生成这个字段，都报错，实现不这个字段统计
报错：

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.12.17.18
错误所在事件：窗口,客户,AfterLoad
详细错误信息：
未找到列 [等级]。
--  作者：有点蓝
--  发布时间：2020/5/28 10:02:00
--  
看3楼
--  作者：lgz518
--  发布时间：2020/5/28 10:32:00
--  
报错，看不懂什么意思

图片点击可在新窗口打开查看此主题相关图片如下：目录树问题.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2020/5/28 10:35:00
--  
说明分组统计用法不正确，缺少分组列

在Groups集合中添加一个分组列的语法是：　

Groups.AddDef(Name)
Groups.AddDef(Name, NewName)
Groups.AddDef(Name, NewName, NewCaption)
Groups.AddDef(Name, DateGroup)
Groups.AddDef(Name, DateGroup, NewName)
Groups.AddDef(Name, DateGroup, NewName, NewCaption)
--  作者：lgz518
--  发布时间：2020/5/28 11:21:00
--  
Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("客户"))
b.Groups.AddDef("等级")
b.Totals.AddDef("等级",AggregateEnum.Count,"订单数") \'
dt = b.Build(True) \'

Dim trv7 As WinForm.TreeView = e.Form.Controls("TreeView7")
trv7.BuildTree(dt,"等级")

trv7.StopRedraw
For Each nd As WinForm.TreeNode In trv7.AllNodes    
    Dim gx As String = nd.DataRow("等级")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "等级(" & dt.Compute("Sum(订单数)","等级= " & gx) & "条)"
        Case 1
            nd.Text = nd.text & "(" & nd.DataRow("订单数") & "条)"
    End Select
Next
trv7.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(订单数)") & "条)",0)
trv7.ResumeRedraw


问题：能显示“等级”，“1等级，2等级”，但报错找不到“2等级”列，还有没统计“1等级，2等级”多少条？
--  作者：有点蓝
--  发布时间：2020/5/28 11:29:00
--  
trv7.BuildTree(dt,"等级")目录树只设置了一个列，就只有一级节点，不可能会有2级节点
--  作者：lgz518
--  发布时间：2020/5/28 11:42:00
--  
1，要如何改能实现，能按等级生成目录及统计条数？
2，如何利用下面代码改怎改，能按等级生成目录及统计条数？

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
trv1.BuildTree("客户", "等级")
trv1.Nodes.Insert("显示所有行",0)