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

此主题相关图片如下：j(ju6zc}6vkf128a26qjjh.png

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

 

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

 

此主题相关图片如下：prgb)t@q58dq}t4f(43{l9.png

大神看3楼回复图 是什么情况 显示不出来的样子

 做个具体的例子上来测试。

谢谢大神  我只需要达到 画图的那种就可以了
此主题相关图片如下：_ukdgi9os(`}q9n}z0~sd.jpg

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

 

 参考代码

 

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 '启用字符标示

其实真的不是很复杂的要求                           

技术故障	装配故障	零配件故障
1
	1
		1
1

就类似上面这个图    每次我都会筛选出这些 数据   但是只要求这些列能做出一个柱形图     能表现出    每个故障有多少个故障数目就可以了

抱歉大神  你这个代码会报错的 提示    Series.Y(i) = DataTables("记录").Compute("Sum(" & arr(i) & ")",Filter)   没有可访问的filter