- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 图表和treeview的联动 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91421)
-- 发布时间：2016/10/10 15:29:00
-- 图表和treeview的联动
生成的图表能根据treeview的层级的数据显示。
此主题相关图片如下：图表和目录树的联动.jpg
，谢谢！-- 发布时间：2016/10/10 16:14:00
--
贴出代码
-- 发布时间：2016/10/10 16:53:00
--
还没有想到，我是想实现如下功能：
1、点击“显示所有采购预算”时，图表显示各年的总的数据
2、点击“XX年”时，图表显示当年的总的采购预算
3、点击“XX年” “XX月”时，图表显示该年各月的数据
4、点击“XX年” “XX月” “初中”时，图表显示该年各月初中类别的学校的总的预算数据
5、点击“XX年” “XX月” “初中” “XX学校”时,图表显示该年各月初中类别总所选学校的各个品目的预算数据
如图
此主题相关图片如下：1010.jpg
此主题相关图片如下：1010.jpg-- 发布时间：2016/10/10 17:01:00
--
哦，那就先做，哪里不通再说
先筛选数据，然后根据筛选的数据填充到图表
-- 发布时间：2016/10/10 17:12:00
--
但是怎么获取目录树的点选的值呀？谢谢！
-- 发布时间：2016/10/10 17:23:00
--
参考：http://www.foxtable.com/webhelp/scr/0884.htm
Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
msgbox(tr.SelectedNode.Text)
tr = Forms("窗口1").Controls("TreeView1")
msgbox(tr.SelectedNode.Text)
-- 发布时间：2016/10/11 8:59:00
--
点击月节点时，提示错误
此主题相关图片如下：月节点.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 \'设置图系的标题
Next
\'========================个性化表标题======================================
Chart.HeaderText="采购预算金额分析 "
Chart.AxisX.Text="年份 -- 月份"
Chart.AxisY.Text="金额合计(万元)"
调用的代码如下：
此主题相关图片如下：月调用.jpg
是哪个地方出错了？谢谢！
-- 发布时间：2016/10/11 9:05:00
--
这么明显，
Functions.Execute("xxx图表",e)
-- 发布时间：2016/10/11 9:13:00
--
哈哈，掉坑了。但是我发现现在的代码还没有实现我的功能。因为点击“月”节点是，是要统计下面的单位类别的预算金额数的。
比如是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 \'设置图系的标题
Next
\'========================个性化表标题======================================
Chart.HeaderText= e.Sender.Value & "年 月度立项金额分析 -- 不分采购单位"
Chart.AxisX.Text="月份"
Chart.AxisY.Text="立项金额合计(万元)"
这里的e.Sender.Value如何转化成treeview节点的值？即就取值为2016
[此贴子已经被作者于2016/10/11 9:19:19编辑过]
-- 发布时间：2016/10/11 9:17:00
--
那要用图示多列了，参考http://www.foxtable.com/webhelp/scr/0970.htm
统计改成交叉统计