主题：通过分组统计表生成图表的问题

要这样处理，如

For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
    Series.X(i) = t.Rows(i)("公司") '指定水平坐标
    Series.Y(i) = t.Rows(i)("可供量") '指定垂直坐标
Next

改成

For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
    Series.X(i) = i
    Series.Y(i) = val(t.Rows(i)("可供量")) '指定垂直坐标

　Chart.AxisX.SetValueLabel(i, t.Rows(i)("公司")) '指定字符表示
Next

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

http://www.foxtable.com/webhelp/scr/0968.htm