-- 作者:qhczy
-- 发布时间:2010/10/27 21:57:00
-- 再述图表问题,给大家添麻烦了.望高人指点
此主题相关图片如下:错误提示1.jpg
具体代码:
Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Dim t As Table = Tables("库存表") \'定义一个变量t引用数据表 Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Series.Length = t.Rows.Count \'图系的数据点数等于表的行数 For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置 Series.X(i) = t.Rows(i)("月份") \'指定水平坐标 Series.Y(i) = t.Rows(i)("数量") \'指定垂直坐标 Next
---------------------------
此主题相关图片如下:错误提示2.jpg
代码:
具体代码:
Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.DataSource = "库存表" \'设置绑定表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Series.X.DataField = "月份" \'X轴绑定到月份列 Series.Y.DataField = "数量" \'Y轴绑定到数量列
都按照帮助中的代码写的,怎么总会提示日期错误呢?另外对X轴,Y轴,Y2轴的数据标示怎么老显不出来呢?具体图形和代码如下。
此主题相关图片如下:数据标示.jpg
Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮 Chart.ChartType = ChartTypeEnum.xyplot \'图表1类型该为Bar(条形) Chart.ChartType2 = ChartTypeEnum.XYPlot \'图表2类型该为线形 Chart.DataSource = "库存表" \'设置绑定表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'给图表1增加一个图系 Series = Chart.SeriesList.Add() \'增加一个图系 series.marksize= 2 \'数据标记点的大小 Series.TooltipText = "产品名称 = {#XVAL}, 件数 = {#YVAL},金额 = {#YVAL}" Series.Text = "件数" Series.X.DataField = "产品名称" \'X轴绑定到产品列 Series.Y.DataField = "件数" \'Y轴绑定到数量列 Series.Y1.DataField = "件数" \'Y轴绑定到数量列
Chart.SeriesList2.Clear() \'清除图表原来的图系 Series = Chart.SeriesList2.Add() \'给图表2增加一个图系 series.marksize= 2 \'数据标记点的大小 Series.Text = "金额(元)" Series.X.DataField = "产品名称" \'X轴绑定到产品列 Series.Y.DataField = "金额" \'Y轴绑定到数量列 Chart.LegendVisible = True \'显示图列 Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端) Chart.AxisX.Text = "月份" Chart.AxisY.Text = "件数" Chart.AxisY2.Text = "金额"
Chart.BarClusterWidth = 10 Chart.BarClusterWidth2 = 10 Chart.AxisX.AnnoRotation = - 45 \'X轴标示逆时针旋转45度 Chart.PrintWidth = 180 Chart.PrintHeight = 150 Series.TooltipText = "产品名称 = {#IPOINT}, 件数 = {#XVAL}, 金额 = {#YVAL} "
|