以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表中的日期列为何成了数据形式？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3652)
--  作者：yangming
--  发布时间：2009/7/22 8:47:00
--  
请注意下面红色部分

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.DataSource = "表A" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Chart.AxisX.DateType = True \'明确指定X轴是日期型
Chart.AxisX.AnnoFormatString = "yy-MM-dd" \'指定日期标示格式
Series.X.DataField = "日期" \'X轴绑定到月份列
Series.Y.DataField = "数量" \'Y轴绑定到数量列
--  作者：yangming
--  发布时间：2009/7/23 9:37:00
--  
你看看我的图表,没有你说的问题啊
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:图表日期列的显示.table
--  作者：狐狸爸爸
--  发布时间：2009/7/27 8:36:00
--  
加入加入下面的代码:

Chart.AxisX.DateType = True \'明确指定X轴是日期型
Chart.AxisX.AnnoFormatString = "yy-MM-dd" \'指定日期标示格式

日期问题就可以解决.
[此贴子已经被作者于2009-7-27 11:03:34编辑过]
--  作者：yangming
--  发布时间：2009/7/27 9:40:00
--  
产蛋按钮中的代码为:红色为我增加的代码

tables("zj").filter=""
dim com as winform.combobox=e.form.controls("combobox1")
tables("zj").filter="[栏舍号] = \'"& com.value & "\'"
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("zj") \'定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表


Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.XYPLot \'图表类型该为
Chart.DataSource = "zj" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加第一个图系
Chart.AxisX.DateType = True \'明确指定X轴是日期型
Chart.AxisX.AnnoFormatString = "yy-MM-dd" \'指定日期标示格式
chart.datafilter=tables("zj").filter
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 \'图列显示在南方(底端)

[此贴子已经被作者于2009-7-27 9:42:51编辑过]
--  作者：czy
--  发布时间：2009/7/27 23:38:00
--  
现在日期列为轴线是一个星期一个点（每星期六），假如每天都有数据，如果以表中现有的数据为点估计也不行（轴线标示会重叠）。

老六，看下5楼的文件，双击菜单的开始会出错。
--  作者：狐狸爸爸
--  发布时间：2009/7/28 7:32:00
--  
楼主不应该用绑定了，应该自己编码增加数据点和标记，具体看帮助。
--  作者：狐狸爸爸
--  发布时间：2009/7/28 7:33:00
--  
以下是引用czy在2009-7-27 23:38:00的发言：
老六，看下5楼的文件，双击菜单的开始会出错。


收到
--  作者：狐狸爸爸
--  发布时间：2009/7/29 0:13:00
--  
这个不能解决的，日期型不是只考虑你有数据的日期，而是根据有数据的日期，计算出一个合理的日期范围。
要解决，只能你自己编码。