以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]柱状图问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101007)
--  作者：349289451
--  发布时间：2017/5/23 15:22:00
--  [求助]柱状图问题

图片点击可在新窗口打开查看此主题相关图片如下：j(ju6zc}6vkf128a26qjjh.png
图片点击可在新窗口打开查看
想根据上表 做一个柱状图    只需要体现   技术故障  装配故障  零配件故障   的数量
代码应该怎么写    帮助文件里的柱状图代码太简单
--  作者：有点色
--  发布时间：2017/5/23 15:30:00
--  

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

 

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

 
--  作者：349289451
--  发布时间：2017/5/23 16:04:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：prgb)t@q58dq}t4f(43{l9.png
图片点击可在新窗口打开查看
这个是怎么个情况
--  作者：349289451
--  发布时间：2017/5/23 16:04:00
--  回复：（有点色） 先分组生成统计表，然后再生成...
大神看3楼回复图 是什么情况 显示不出来的样子
--  作者：有点色
--  发布时间：2017/5/23 16:10:00
--  
 做个具体的例子上来测试。
--  作者：349289451
--  发布时间：2017/5/23 16:15:00
--  回复：（有点色） 做个具体的例子上来测试。
谢谢大神  我只需要达到 画图的那种就可以了
图片点击可在新窗口打开查看此主题相关图片如下：_ukdgi9os(`}q9n}z0~sd.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:南特金龙企业管理软件.foxdb
--  作者：有点色
--  发布时间：2017/5/23 16:42:00
--  

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

 

 参考代码

 

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 \'启用字符标示
--  作者：349289451
--  发布时间：2017/5/23 20:35:00
--  [求助]回复：（有点色） 连不上你的数据源。你单独做一...
其实真的不是很复杂的要求                           
  技术故障  装配故障    零配件故障 
   1      
      1   
         1
   1      
就类似上面这个图    每次我都会筛选出这些 数据   但是只要求这些列能做出一个柱形图     能表现出    每个故障有多少个故障数目就可以了
--  作者：有点蓝
--  发布时间：2017/5/23 21:25:00
--  


Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 3 \'新增图系包括10个数据点
Dim arr() As String = {"技术故障_次数","装配故障_次数","零配件故障_次数"}
For i As Integer = 0 To arr.Length - 1 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = DataTables("记录2").Compute("Sum(" & arr(i) & ")",Filter)
    Chart.AxisX.SetValueLabel(i, arr(i).Split("_")(0))
Next
Chart.AxisX.AnnoWithLabels = True
--  作者：349289451
--  发布时间：2017/5/23 22:49:00
--  回复：（有点蓝）Dim Chart As WinForm.Chart '定义一...
抱歉大神  你这个代码会报错的 提示    Series.Y(i) = DataTables("记录").Compute("Sum(" & arr(i) & ")",Filter)   没有可访问的filter