主题：[求助]类似这样的图表怎么做啊

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

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

根据帮助真心学不会。

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

快来帮俺看看吧。

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

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

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

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

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

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

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

感觉其他的应该通用。

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

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

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

按钮代码

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 '图列显示在东方(右方)