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

 参考例子

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

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

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(i) = c.Index
            Series.Y1(i) = t.Rows(i)(c.Name) '泡的大小用--生成
            Series.DataLabelText = "{#YVAL}"
            Chart.AxisY.SetValueLabel(c.Index, c.Name) '指定字符表示
        Next
    End If
Next

Chart.AxisY.AnnoWithLabels = True '启用字符标示

'------------生成统计表-------------
Dim g As New CrossTableBuilder("装炉大宽", 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("装炉大宽") '定义一个变量t引用数据表---
Chart= Forms("装炉搭配预测").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bubble
Chart.DataSource = "装炉大宽" '设置绑定表---
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(i) = c.Index
            Series.Y1(i) = t.Rows(i)(c.Name) '泡的大小用--生成
            Series.DataLabelText = "{#Y1VAL}"
            Chart.AxisY.SetValueLabel(c.Index, c.Caption) '指定字符表示
        Next       
    End If
Next

Chart.AxisY.AnnoWithLabels = True '启用字符标示

看13楼