以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 目录树统计问题 (http://www.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 -- 没加和加
|
|
-- 作者:有点蓝 -- 发布时间:2020/5/28 10:02:00 -- 看3楼 |
|
-- 作者:lgz518 -- 发布时间:2020/5/28 10:32:00 -- 报错,看不懂什么意思 |
|
-- 作者:有点蓝 -- 发布时间:2020/5/28 10:35:00 -- 说明分组统计用法不正确,缺少分组列 在Groups集合中添加一个分组列的语法是: Groups.AddDef(Name) |
|
-- 作者: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) |