主题：[求助]柱状图问题

 先分组生成统计表，然后再生成对应的条形图

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

 连不上你的数据源。你单独做一个内部数据云的例子发上来测试吧。

 参考代码

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.ClearValueLabel
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 3 '新增图系包括10个数据点
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Series.X(0) = 0 '指定水平坐标
Series.Y(0) = 1111
Series.X(1) = 1 '指定水平坐标
Series.Y(1) = 2222
Series.X(2) = 2 '指定水平坐标
Series.Y(2) = 3333

Chart.AxisX.SetValueLabel(0, "aaa") '指定字符表示
Chart.AxisX.SetValueLabel(1, "bbb") '指定字符表示
Chart.AxisX.SetValueLabel(2, "ccc") '指定字符表示
Chart.AxisX.AnnoWithLabels = True '启用字符标示