- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]查询和统计结果结合图表的应用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69156)
-- 发布时间：2015/5/31 20:25:00
-- [求助]查询和统计结果结合图表的应用
如附件所示，如何将交叉统计的结果生成图表。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目28.foxdb |
-- 发布时间：2015/5/31 20:45:00
--
呃，首先，横坐标是什么，纵坐标是什么？
而且，谁说一定要绑定列值？ 看示例二
http://www.foxtable.com/help/topics/0968.htm
http://www.foxtable.com/help/topics/0970.htm
-- 发布时间：2015/5/31 21:48:00
--
图表会按照PID来过滤，即要么生成P1，要么生成P2，所以，我在里面加了个条件PID＝‘P1’
-- 发布时间：2015/5/31 22:04:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目28.foxdb |
-- 发布时间：2015/5/31 23:10:00
--
Dim DT As fxDataSource
Dim tbl As Table = e.Form.Controls("Table1").Table
Dim b As New SQLCrossTableBuilder("AA","D")
b.HGroups.AddDef("PID")
\'b.HGroups.AddDef("CID")
b.HGroups.AddDef("Per")
b.VGroups.AddDef("Class")
b.Totals.AddDef("V")
b.Totals.AddDef("V","累计",True) \'
b.Filter = "PID = \'P1\'"
Dt = b.BuildDataSource()
tbl.DataSource = DT
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar \'图表类型改为Bar(条形)
Chart.ChartType2 = ChartTypeEnum.XYPlot
Chart.DataSource = tbl.Name \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Chart.SeriesList2.Clear() \'清除图表原来的图系
For Each c As Col In tbl.Cols
If c.Name <> "PID" And c.Name <> "CID" And c.Name <> "Per" And c.Name <> "Class" Then
If c.Caption Like "*V*" Then
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Text = c.Caption \'设置图系的标题
Series.X.DataField = "Per" \'X轴绑定到产品列
Series.Y.DataField = c.name \'设置Y轴的绑定列
ElseIf c.Caption Like "*累计*" Then
Series = Chart.SeriesList2.Add() \'给图表2增加一个图系
Series.Text = c.Caption \'设置图系的标题
Series.X.DataField = "Per" \'X轴绑定到产品列
Series.Y.DataField = c.Name \'设置Y轴的绑定列
End If
End If
Next
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
-- 发布时间：2015/5/31 23:23:00
--
理解了。关键点在这里
Chart.SeriesList2.Clear() \'清除图表原来的图系
-- 发布时间：2015/6/1 9:29:00
--
回复6楼，方法1，把类型转成字符类型；方法2，不要绑定列的方式生成表，用代码一个一个赋值，看2楼
-- 发布时间：2015/6/1 16:56:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目28.foxdb |
红袍兄，参考了二楼做法，为什么绑定列就可以正常出图，写代码指定值不行呢？
-- 发布时间：2015/6/1 17:12:00
--
要指定长度
Dim DT As fxDataSource
Dim tbl As Table = e.Form.Controls("Table1").Table
Dim b As New SQLCrossTableBuilder("AA","D")
b.HGroups.AddDef("PID")
\'b.HGroups.AddDef("CID")
b.HGroups.AddDef("Per")
b.VGroups.AddDef("Class")
b.Totals.AddDef("V","本期")
b.Totals.AddDef("V","累计",True) \'
b.Filter = "PID = \'P1\'"
Dt = b.BuildDataSource()
tbl.DataSource = DT
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar \'图表类型改为Bar(条形)
Chart.ChartType2 = ChartTypeEnum.XYPlot
Chart.DataSource = tbl.Name \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Chart.SeriesList2.Clear() \'清除图表原来的图系
For Each c As Col In tbl.Cols
If c.Name <> "PID" And c.Name <> "CID" And c.Name <> "Per" And c.Name <> "Class" Then
If c.Caption Like "*本期*" Then
Series = Chart.SeriesList.Add() \'增加一个图系
Else
Series = Chart.SeriesList2.Add() \'给图表2增加一个图系
End If
Series.Text = c.caption \'设置图系的标题
series.Length = tbl.Rows.Count
For i As Integer = 0 To tbl.Rows.Count - 1
series.x(i) = i
series.y(i) = tbl.Rows(i)(c.Name)
Chart.AxisX.SetValueLabel(i,tbl.Rows(i)("Per"))
Next
\'------------数据绑定列的做法
\'Series.X.DataField = "Per" \'X轴绑定到产品列
\'Series.Y.DataField = c.Name \'设置Y轴的绑定列
\'--------------数据绑定列的做法结束
End If
Next
Chart.AxisX.AnnoWithLabels = True
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
-- 发布时间：2015/6/2 16:46:00
--
再请教，如何解决左侧切换行时图的横坐标的重叠问题？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:27.zip |