主题：圖表數據排序問題

Dim tb As Table = Tables("表A")
tb.Sort = "編碼"
'tb.Sort = ""

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar '图表1类型可改为Bar(Pie条形)
Chart.SeriesList.Clear
Chart.BarClusterWidth = 80

For Each c As Col In tb.Cols
    If c.Name.Contains("數量") Then
        Series = Chart.SeriesList.Add() '增加第一个图系
        Series.Text = c.Name '设置图系的标题
        Series.Length = tb.Rows.Count '设置图系的长度
        For rs As Integer = 0 To tb.Rows.Count - 1
            Series.X(rs) = rs
            Series.Y(rs) = tb.Rows(rs)(c.Name)
            Series.DataLabelText = "{#YVAL}"
            Series.TooltipText = c.name & ":" & tb.Rows(rs)(c.Name)
            Chart.AxisX.SetValueLabel(rs, tb.Rows(rs)("工序")) '指定字符表示
        Next       
    End If
Next

Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

 

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

 

 是不是这个意思？

 

Dim tb As Table = Tables("表A")
tb.Sort = "編碼"
'tb.Sort = ""

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar '图表1类型可改为Bar(Pie条形)
Chart.SeriesList.Clear
Chart.BarClusterWidth = 80

For Each c As Col In tb.Cols
    If c.Name.Contains("數量") Then
        Series = Chart.SeriesList.Add() '增加第一个图系
        Series.Text = c.Name '设置图系的标题
        Series.Length = tb.Rows.Count '设置图系的长度
        For rs As Integer = 0 To tb.Rows.Count - 1
            Series.X(rs) = rs
            Series.Y(rs) = tb.Rows(rs)(c.Name)
            Chart.AxisX.SetValueLabel(rs, tb.Rows(rs)("工序")) '指定字符表示
        Next
        Series.DataLabelText = "{#YVAL}"
        Series.TooltipText = c.name & ":{#YVAL}" 
    End If
Next

Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

 TooltipText  无法另外定义，它只能定义一次，可变内容只能是 {YVAL}等