图表和treeview的联动 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

生成的图表能根据treeview的层级的数据显示。
图片点击可在新窗口打开查看

此主题相关图片如下：图表和目录树的联动.jpg

，谢谢！

还没有想到，我是想实现如下功能：

1、点击“显示所有采购预算”时，图表显示各年的总的数据

2、点击“XX年”时，图表显示当年的总的采购预算

3、点击“XX年” “XX月”时，图表显示该年各月的数据

4、点击“XX年” “XX月” “初中”时，图表显示该年各月初中类别的学校的总的预算数据

5、点击“XX年” “XX月” “初中” “XX学校”时,图表显示该年各月初中类别总所选学校的各个品目的预算数据

如图

此主题相关图片如下：1010.jpg

哦，那就先做，哪里不通再说

先筛选数据，然后根据筛选的数据填充到图表

但是怎么获取目录树的点选的值呀？谢谢！

参考：http://www.foxtable.com/webhelp/scr/0884.htm

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
msgbox(tr.SelectedNode.Text)

点击月节点时，提示错误
图片点击可在新窗口打开查看

此主题相关图片如下：月节点.jpg

，其代码如下：

Dim e As Object = Args(0)

'===============生成统计表==========

Dim g As New GroupTableBuilder("统计表1", DataTables("tblcgys"))

g.Groups.AddDef("rq", DateGroupEnum.Year, "年")

g.Groups.AddDef("rq",DateGroupEnum.Month, "月")

g.Totals.AddDef("ysje","金额合计(万元)")

g.Build()

'====================生成图表======================

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表

Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.SeriesList.Clear() '清除图表原来的图系

Chart.LegendVisible=False '是否先图例

Series = Chart.SeriesList.Add() '增加一个图系

Chart.ChartType=ChartTypeEnum.Bar '条形图

Chart.AxisX.Major=1 'X轴主刻度间隔值为1

Chart.AxisY.Major=1000 'Y轴主刻度间隔值为1000

Series.Length = t.Rows.Count '图系的数据点数等于表的行数

For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置

Series.X(i) = t.Rows(i)("月") '指定水平坐标

Series.Y(i) = t.Rows(i)("金额合计(万元)") '指定垂直坐标

series.DataLabelText="{#YVAL}" '生成条形图的刻度

' Series.Text = i.Caption '设置图系的标题

'========================个性化表标题======================================

Chart.HeaderText="采购预算金额分析 "

Chart.AxisX.Text="年份 -- 月份"

Chart.AxisY.Text="金额合计(万元)"

调用的代码如下：

此主题相关图片如下：月调用.jpg

是哪个地方出错了？谢谢！

这么明显，

Functions.Execute("xxx图表",e)

哈哈，掉坑了。但是我发现现在的代码还没有实现我的功能。因为点击“月”节点是，是要统计下面的单位类别的预算金额数的。

比如是2016年的节点，那么图表应该显示的是2016年各月的采购预算金额数值

'=================生成统计表===================

Dim g As New GroupTableBuilder("统计表1", DataTables("tblcglx"))

g.Groups.AddDef("rq", "月")

g.Totals.AddDef("jehj", "金额合计(万元)")

g.Filter="[rq] >= #1/1/" & e.Sender.Value & "# And [rq] <= #12/31/" & e.Sender.Value & "#"

g.Build()

'====================生成图表======================

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表

Chart= e.Form.Controls("chtcglx") ' 引用窗口中的图表

Chart.SeriesList.Clear() '清除图表原来的图系

Chart.LegendVisible=False '是否显示图例

Series = Chart.SeriesList.Add() '增加一个图系

Chart.ChartType=ChartTypeEnum.Bar '条形图

Chart.AxisX.Major=1 'X轴主刻度间隔值为1

Chart.AxisY.Major=1000 'Y轴主刻度间隔值为1000

Series.Length = t.Rows.Count '图系的数据点数等于表的行数

For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置

Series.X(i) = t.Rows(i)("月") '指定水平坐标

Series.Y(i) = t.Rows(i)("金额合计(万元)") '指定垂直坐标

series.DataLabelText="{#YVAL}" '生成条形图的刻度

' Series.Text = i.Caption '设置图系的标题

'========================个性化表标题======================================

Chart.HeaderText= e.Sender.Value & "年月度立项金额分析 -- 不分采购单位"

Chart.AxisX.Text="月份"

Chart.AxisY.Text="立项金额合计(万元)"

这里的e.Sender.Value如何转化成treeview节点的值？即就取值为2016

[此贴子已经被作者于2016/10/11 9:19:19编辑过]

那要用图示多列了，参考http://www.foxtable.com/webhelp/scr/0970.htm

统计改成交叉统计

主题：图表和treeview的联动