Foxtable(狐表)用户栏目专家坐堂 → [求助]柱状图问题


  共有3361人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
349289451
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:201 积分:1658 威望:0 精华:0 注册:2016/3/22 14:25:00
[求助]柱状图问题  发帖心情 Post By:2017/5/23 15:22:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/23 15:30:00 [只看该作者]

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
349289451
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:201 积分:1658 威望:0 精华:0 注册:2016/3/22 14:25:00
  发帖心情 Post By:2017/5/23 16:04:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:prgb)t@q58dq}t4f(43{l9.png
图片点击可在新窗口打开查看
这个是怎么个情况


 回到顶部
帅哥哟,离线,有人找我吗?
349289451
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:201 积分:1658 威望:0 精华:0 注册:2016/3/22 14:25:00
回复:(有点色) 先分组生成统计表,然后再生成...  发帖心情 Post By:2017/5/23 16:04:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/23 16:10:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
349289451
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:201 积分:1658 威望:0 精华:0 注册:2016/3/22 14:25:00
回复:(有点色) 做个具体的例子上来测试。  发帖心情 Post By:2017/5/23 16:15:00 [只看该作者]

谢谢大神  我只需要达到 画图的那种就可以了
图片点击可在新窗口打开查看此主题相关图片如下:_ukdgi9os(`}q9n}z0~sd.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:南特金龙企业管理软件.foxdb



 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:201 积分:1658 威望:0 精华:0 注册:2016/3/22 14:25:00
[求助]回复:(有点色) 连不上你的数据源。你单独做一...  发帖心情 Post By:2017/5/23 20:35:00 [只看该作者]

其实真的不是很复杂的要求                           
  技术故障  装配故障    零配件故障 
   1      
      1   
         1
   1      
就类似上面这个图    每次我都会筛选出这些 数据   但是只要求这些列能做出一个柱形图     能表现出    每个故障有多少个故障数目就可以了

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:201 积分:1658 威望:0 精华:0 注册:2016/3/22 14:25:00
回复:(有点蓝)Dim Chart As WinForm.Chart '定义一...  发帖心情 Post By:2017/5/23 22:49:00 [只看该作者]

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


 回到顶部
总数 12 1 2 下一页