主题：[求助]交叉统计表列名的值如何取？

统计表：

计划装炉日期     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

我把黄色部分改成Series.Y.DataField = c.Name，没有用，还是不懂怎么改

现在纵坐标显示0-40的值，但是我现在是要让纵坐标就显示800、1000、1300，我没有在链接里面找到相关知识点，能否烦请大侠直接帮忙改一下，呜~~~
此主题相关图片如下：坐标.jpg

'------------生成统计表-------------
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

整个例子不方便传上来，不好意思~~~

传上来了

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

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

按您的改了，但是变成了这样：

 

此主题相关图片如下：11.jpg