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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树统计问题

共有2235人关注过本帖树形打印复制链接主题：目录树统计问题

lgz518

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1152 积分：7712 威望：0 精华：0 注册：2019/6/13 9:57:00

目录树统计问题 发帖心情

Post By：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

报错：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.12.17.18

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

详细错误信息：

未找到列 [等级]。

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

sloyy

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2020/5/27 22:40:00 [只看该作者]

tables("窗口1_table1").datasource=dt

先把dt 赋值给一个窗口表,检查看等级这个字段生成没有

[此贴子已经被作者于2020/5/27 22:40:28编辑过]

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1152 积分：7712 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/5/28 9:57:00 [只看该作者]

没加和加

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

报错：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.12.17.18

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

详细错误信息：

未找到列 [等级]。

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/5/28 10:02:00 [只看该作者]

看3楼

lgz518

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1152 积分：7712 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/5/28 10:32:00 [只看该作者]

报错，看不懂什么意思

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

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1152 积分：7712 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：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

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

trv7.ResumeRedraw

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

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/5/28 11:29:00 [只看该作者]

trv7.BuildTree(dt,"等级")目录树只设置了一个列，就只有一级节点，不可能会有2级节点

lgz518

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1152 积分：7712 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/5/28 11:42:00 [只看该作者]

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

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

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

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

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

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：目录树统计问题