[求助] 一个图表的数据可以来自两个表吗 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一个图表的数据可以来自两个表吗

截图或者上传实例说明。要取什么数据，做成什么结果？

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)("工资") '指定垂直坐标

总是只能显示结款额和工资的其中之一

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

此主题相关图片如下：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

Chart2.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart2.LegendVisible = True '显示图列

Chart2.LegendCompass= CompassEnum.South '图列显示在南方(底端)

[此贴子已经被作者于2019/12/13 17:15:55编辑过]

使用方法二，不要绑定

主题：[求助] 一个图表的数据可以来自两个表吗