统计表：

计划装炉日期     800    1000    1300   ’ 物料宽度分类

2014-12-01     1.5      0         14      ’对各宽度每日装炉的重量进行统计

2014-12-03     25       0         10

2014-12-08     36       24        5

我创建了以上统计表，对表做多图系的Bubble图表，如果我现在要在Y轴上取800、1000、1300，以下黄色部分应该怎么改呢？

求各位高手支招，跪谢~~~~~

For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置
            Series.X(i) = t.Rows(i)("计划装炉") \'指定水平坐标为计划装炉日期
            Series.Y(i) = c.Name \'垂直坐标统计表的列名的值表示         问题：800、1000、1300似乎不能用c.Name取出来

            Series.Y1(i) = t.Rows(i)(c.Name) \'泡的大小用每日装炉累计重量表示
            Series.DataLabelText = "{#YVAL}"

Next

补充以下：以上编码中，c是交叉统计表t的列

统计表t：

计划装炉日期     800    1000    1300   ’ 物料宽度分类

2014-12-01     1.5      0         14      ’对各宽度每日装炉的重量进行统计

2014-12-03     25       0         10

2014-12-08     36       24        5

 参考例子

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

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

\'------------生成统计表-------------
Dim g As New CrossTableBuilder("退火大宽x", DataTables("套切方案"))
g.HGroups.AddDef("计划装炉", DateGroupEnum.None, "", "计划装炉")
g.VGroups.AddDef("宽度图表分类")
g.Totals.AddDef("左产出", "左产出")
g.Decimals = 0
g.Build()

\'-----------生成图表---------------
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("退火大宽x") \'定义一个变量t引用数据表---
Chart= Forms("装炉搭配预测").Controls("大倒小图") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bubble
Chart.DataSource = "退火大宽x" \'设置绑定表---
Chart.AxisX.DateType = True
Chart.AxisX.AnnoFormatString = "MM-dd" \'制定日期表示格式
Chart.SeriesList.Clear() \'清除图表原来的图系

For Each c As Col In t.Cols
    If c.Name <> "计划装炉" Then       
        Series = Chart.SeriesList.Add() \'增加一个图系
        Series.Text = c.Name \'设置图系的标题      
        Series.Length = t.Rows.Count \'图系包括--个数据点
        Series.MarkShape= MarkShapeEnum.Dot \'指定数据标记为圆点.
        Series.LinePattern = LinePatternEnum.None \'不显示数据点之间的联线
        For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置
            Series.X(i) = t.Rows(i)("计划装炉") \'指定水平坐标
            Series.Y.DataField = c.Name
            \'Series.Y(i) = t.Rows(i)(c.Name) \'垂直坐标用--生成
            Series.Y1(i) = t.Rows(i)(c.Name) \'泡的大小用--生成
            Series.DataLabelText = "{#YVAL}"
        Next       
    End If
Next