目录树统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

报错：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.12.17.18

错误所在事件：窗口,客户,AfterLoad

详细错误信息：

未找到列 [等级]。

需求：目录树，实现统计：如“等级”20条，等级下属目录"1级10条，2级10“

没加和加

tables("窗口1_table1").datasource=dt，也会生成这个字段，都报错，实现不这个字段统计

报错：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.12.17.18

错误所在事件：窗口,客户,AfterLoad

详细错误信息：

未找到列 [等级]。

报错，看不懂什么意思

此主题相关图片如下：目录树问题.jpg

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

trv7.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(订单数)") & "条)",0)

trv7.ResumeRedraw

问题：能显示“等级”，“1等级，2等级”，但报错找不到“2等级”列，还有没统计“1等级，2等级”多少条？

1，要如何改能实现，能按等级生成目录及统计条数？

2，如何利用下面代码改怎改，能按等级生成目录及统计条数？

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")

trv1.BuildTree("客户", "等级")

trv1.Nodes.Insert("显示所有行",0)

主题：目录树统计问题