[求助]为什么会提示没有这个datatable？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim cmd As New SQLCommand

Dim dtYK As DataTable

cmd.C

cmd.CommandText = "SELECT DISTINCT Year(MakeDate) As MakeYear f rom {AccountVouchers}"

dtYK = cmd.ExecuteReader

Dim f As New Filler

f.SourceTable = DataTables("dtYK") '指定数据来源

f.SourceCols = "MakeYear" '指定数据来源列

f.DataTable = DataTables("盈亏总表") '指定数据接收表

f.DataCols = "年份" '指定数据接收列

f.Fill() '填充数据

此主题相关图片如下：1.png

f.SourceTable = DataTables("dtYK") '指定数据来源

改成

f.SourceTable = dtYK

谢谢老师纠正

另外，这个双图表的显示数据的问题怎么解决？

代码：

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

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

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

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

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

Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)

Chart.DataSource = "盈亏总表" '设置绑定表

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

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

Series.Text = "收入金额"

Series.X.DataField = "年份" 'X轴绑定到产品列

Series.Y.DataField = "收入金额" 'Y轴绑定到数量列

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

Series.Text = "支出金额"

Series.X.DataField = "年份" 'X轴绑定到产品列

Series.Y.DataField = "支出金额" 'Y轴绑定到数量列

Chart.LegendVisible = True '显示图列

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

Series.DataLabelText = "{#YVAL}"

为什么只有支出的才显示数据呢？

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

而且，我的数据表里面只有3个年份，为什么图表上面显示什么2015.5,2016.5？

此主题相关图片如下：3.png

[此贴子已经被作者于2017/10/30 15:47:43编辑过]

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

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

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

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

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

Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)

Chart.DataSource = "盈亏总表" '设置绑定表

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

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

Series.Text = "收入金额"

Series.X.DataField = "年份" 'X轴绑定到产品列

Series.Y.DataField = "收入金额" 'Y轴绑定到数量列

Series.DataLabelText = "{#YVAL}"

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

Series.Text = "支出金额"

Series.X.DataField = "年份" 'X轴绑定到产品列

Series.Y.DataField = "支出金额" 'Y轴绑定到数量列

Chart.LegendVisible = True '显示图列

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

Series.DataLabelText = "{#YVAL}"

ok，谢谢

还有一个问题：我的数据表里面只有3个年份，为什么图表上面显示什么2015.5,2016.5？

此主题相关图片如下：3.png

加上代码

Chart.AxisX.Major = 1

Chart.AxisY.MinorTick = false

主题：[求助]为什么会提示没有这个datatable？