主题：日期座标

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

如果说编码有问题，这样也是不合理的

看到狐爸还在工作，赶紧再自己顶一下

Dim A As Integer = Tables("表A").Current(1)
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("表A")
Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.XYPlot '设置图表类型
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = t.Rows.Count
Chart.AxisX.AnnoRotation = - 45
For i As Integer = 0 To t.Rows.Count-1 '指定每个数据点的位置
    Series.X(i) = i
    Series.Y(i) = t.Rows(i)(A) '指定垂直坐标
     Chart.AxisX.SetValueLabel(i, Format(t.Rows(i)(0),"MM-dd")) '指定字符表示
Next

谢谢狐爸这么快！ 下面这个语句的含义是什么：

Chart.AxisX.SetValueLabel(i, Format(t.Rows(i)(0),"MM-dd")) '指定字符表示
既然已经通过Series.Length = t.Rows.Count 指定了座标的长度，为什么还要加上那么一句，请赐教！

还有，横座标的年份也变成了99年和00年，变成下面形式也不行 Chart.AxisX.SetValueLabel(i, Format(t.Rows(i)(0),"YY-MM-dd"))

参考：

http://www.foxtable.com/help/topics/0968.htm

 

狐爸新年好！

经再次测试，横座标为0-9的序号，未出现日期。

经查，中间5个空白点是在加入第6组数据的时候自动补上的。

明白了，因为日期是一种特殊类型的数据，为了便于按比例缩放，故会将空白点自动补上。所以，将日期作为横坐标时，要不出现空白点的话，必须转换成字符型。