根据临时统计表怎么做pie图表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

比如

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("窗口1_table1") '定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = t.Rows.Count '图系的数据点数等于表的行数
For i As integer = 0 to t.Rows.Count - 1 '指定每个数据点的位置
Series.X(i) = t.Rows(i)("月份") '指定水平坐标
Series.Y(i) = t.Rows(i)("数量") '指定垂直坐标
Next

直接取统计表的数据不就行了。生成图表这章内容看一看，尝试过了吗？具体有什么问题？

看啥呀？代码呢？项目呢？

这个效果？

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("出货表") '定义一个变量t引用数据表

Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)

Chart.AxisX.ClearValueLabel

Dim cnt As Integer = t.Rows.Count

For Each c As Col In t.Cols

If c.Name <> "时间"

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = cnt '一个系列只能包括一个值

Series.Text = c.Name '设置图系的标题

Dim i As Integer = 0

For Each r As Row In t.Rows

Series.Y(i) = r(c.Name ) '指定值

i += 1

End If

For r As Integer = 0 To t.Rows.Count - 1

Chart.AxisX.SetValueLabel(r, t.Rows(r)("时间")) '指定字符表示

Chart.AxisX.AnnoWithLabels = True '启用字符标示

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

那么请问搜索后的PIE是什么效果？画个图看看呗

哪个数据相对哪个数据的百分比？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:秦淮坊erp.zip

把代码的提示框去掉即可

添加数量参考：http://www.foxtable.com/webhelp/topics/0972.htm

去掉这句：

msgbox(sm)

添加数量参考：http://www.foxtable.com/webhelp/topics/0972.htm

写了什么代码？

主题：根据临时统计表怎么做pie图表