以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  再述图表问题,给大家添麻烦了.望高人指点  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8453)

--  作者: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} "


 


--  作者:狐狸爸爸
--  发布时间:2010/10/28 8:05:00
--  
你要做一个简单的例子传上来,并说明问题,大家才好测试的。