以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]类似这样的图表怎么做啊  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52780)

--  作者:青岛立邦达
--  发布时间:2014/6/23 10:50:00
--  [求助]类似这样的图表怎么做啊

图片点击可在新窗口打开查看

这样的图表在狐表里面怎么实现啊

 


--  作者:Bin
--  发布时间:2014/6/23 10:51:00
--  
图挂了,上传图片参考这里 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
--  作者:有点甜
--  发布时间:2014/6/23 10:52:00
--  

 参考 http://www.foxtable.com/help/topics/0972.htm

 


--  作者:青岛立邦达
--  发布时间:2014/6/23 14:30:00
--  

根据帮助真心学不会。

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("技术支持部维修报告") \'定义一个变量t引用数据表
Chart= Forms("图表分析").Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie \'图表1类型改为Bar(条形)
For Each r As Row In t.Rows
    Series = Chart.SeriesList.Add() \'增加一个图系
    Series.Length = 1 \'一个系列只能包括一个值
    Series.Text = r("产品型号") & "(" & r("故障原因") & ")" \'设置图系的标题
    Series.Y(0) = r("故障原因") \'指定值
Next
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.East

 

1.想根据时间选择来判断  某个日期时间段   某产品型号 的 故障发生率      故障率=对应产品型号的单一故障数量/对应产品型号总故障数量    这个数量就是有多少张维修单的数量

快来帮俺看看吧。


--  作者:有点甜
--  发布时间:2014/6/23 14:34:00
--  
 呃,上传例子。
--  作者:青岛立邦达
--  发布时间:2014/6/23 14:49:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.rar


--  作者:有点甜
--  发布时间:2014/6/23 15:17:00
--  

呃,完全看不懂你的项目和描述。

 

你要显示哪一张表的哪一列和哪一列的关系图表?又在哪一个窗口显示?


--  作者:青岛立邦达
--  发布时间:2014/6/23 16:15:00
--  

额不好意思版主,新手上路有点乱。

 

表单:技术支持部售后报告

需要用到的列: 1.机器型号  2. 返厂时间   3.使用行业

想要的效果:饼状图显示 返厂时间段内某行业哪个型号使用较多。

窗口:窗口管理中的图表分析  。可以预览成功就可以。

感觉其他的应该通用。

 

 

之前描述: 表单 :技术支持部维修报告   技术支持部售后报告

需要用到的列   技术支持部售后报告(1.机器型号  2.返厂时间)  3.技术支持部维修报告(1.故障描述)

想要的效果:1.饼状图显示   返厂时间段内  哪款型号故障率高   2.饼状图显示 返厂时间段内 哪个故障出现的频率高


--  作者:有点甜
--  发布时间:2014/6/23 16:31:00
--  

按钮代码

 

Dim g As New GroupTableBuilder("统计表1", DataTables("技术支持部售后报告"))
g.Groups.AddDef("机器型号")
g.Totals.AddDef("自动编号", AggregateEnum.Count, "数量")
g.Build()
MainTable = Tables("统计表1")

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("统计表1") \'定义一个变量t引用数据表
Dim sm As Integer = t.Compute("Sum(数量)") \'计算总数量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie \'图表1类型改为Bar(条形)
For Each r As Row In t.Rows
    Series = Chart.SeriesList.Add() \'增加一个图系
    Series.Length = 1 \'一个系列只能包括一个值
    Series.Text = r("机器型号") & "(" & r("数量") & ")" \'设置图系的标题
    Series.Y(0) = r("数量") \'指定值
    Series.DataLabelText = Math.Round(r("数量")*100/sm,2) & "%" \'计算百分比
Next
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.East \'图列显示在东方(右方)


--  作者:青岛立邦达
--  发布时间:2014/6/23 16:33:00
--  
非常感谢。好人有好报