- 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=144217)
-- 发布时间：2019/12/13 16:04:00
-- [求助] 一个图表的数据可以来自两个表吗
一个图表的数据可以来自两个表吗
-- 发布时间：2019/12/13 16:30:00
--
截图或者上传实例说明。要取什么数据，做成什么结果？
-- 发布时间：2019/12/13 16:49:00
--
Dim Chart2 As WinForm.Chart \'定义一个图表变量
Dim Series2 As WinForm.ChartSeries \'定义一个图系变量
\'Chart2.SeriesList.Clear() \'清除图表原来的图系
\'Dim t As Table = Tables("统计表1") \'定义一个变量t引用数据表
Chart2= e.Form.Controls("Chart2") \' 引用窗口中的图表
Chart2.SeriesList.Clear() \'清除图表原来的图系
Chart2.SeriesList2.Clear() \'清除图表原来的图系
Series2 = Chart2.SeriesList.Add() \'增加一个图系
Series2.Length = Tables("月度结款额").Rows.Count \'图系的数据点数等于表的行数
For i As Integer = 0 To Tables("月度结款额").Rows.Count - 1 \'指定每个数据点的位置
Series2.X(i) = Tables("月度结款额").Rows(i)("月") \'指定水平坐标
Series2.Y(i) = Tables("月度结款额").Rows(i)("结款额") \'指定垂直坐标
Series2.Y(i) = Tables("月度结款额").Rows(i)("工资") \'指定垂直坐标
Next
总是只能显示 结款额和工资的其中之一
此主题相关图片如下：2.jpg
-- 发布时间：2019/12/13 16:58:00
--
参考：http://www.foxtable.com/webhelp/topics/0970.htm
-- 发布时间：2019/12/13 17:14:00
--
此主题相关图片如下：3.jpg
对表格进行了排序,这里也是乱的,应该如何处理呢
Dim Chart2 As WinForm.Chart \'定义一个图表变量
Dim Series2 As WinForm.ChartSeries \'定义一个图系变量
Dim tt As Table = Tables("月度结款额") \'定义一个变量t引用数据表
Chart2 = e.Form.Controls("Chart2") \' 引用窗口中的图表
\'Chart2.ChartType = ChartTypeEnum.Bar \'图表类型改为Bar(条形)
Chart2.DataSource = "月度结款额" \'设置绑定表
Chart2.SeriesList.Clear() \'清除图表原来的图系
For Each c As Col In tt.Cols
If c.Name <> "月" Then
Series2 = Chart2.SeriesList.Add() \'增加一个图系
Series2.Text = c.name \'设置图系的标题
Series2.X.DataField = "月" \'X轴绑定到产品列
Series2.Y.DataField = c.name \'设置Y轴的绑定列
End If
Next
Chart2.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart2.LegendVisible = True \'显示图列
Chart2.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
[此贴子已经被作者于2019/12/13 17:15:55编辑过]
-- 发布时间：2019/12/13 17:24:00
--
使用方法二，不要绑定