- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]为什么会提示没有这个datatable？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108823)
-- 发布时间：2017/10/30 15:05:00
-- [求助]为什么会提示没有这个datatable？
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
-- 发布时间：2017/10/30 15:31:00
--
f.SourceTable = DataTables("dtYK") \'指定数据来源
改成
f.SourceTable = dtYK
-- 发布时间：2017/10/30 15:45:00
-- 回复：（有点甜）f.SourceTable = DataTables("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编辑过]
-- 发布时间：2017/10/30 15:48:00
--
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}"
-- 发布时间：2017/10/30 15:51:00
-- 回复：（有点甜）Dim Chart As WinForm.Chart '定义一...
ok，谢谢
还有一个问题：我的数据表里面只有3个年份，为什么图表上面显示什么2015.5,2016.5？
此主题相关图片如下：3.png
-- 发布时间：2017/10/30 15:59:00
--
加上代码
Chart.AxisX.Major = 1
Chart.AxisY.MinorTick = false