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

代码及窗体如下

此主题相关图片如下：无标题1.png

出错信息如下

此主题相关图片如下：无标题2.png

运行结果如下

此主题相关图片如下：无标题3.png

代码：

Dim g As New GroupTableBuilder("统计表12", DataTables("出库"))

g.Groups.AddDef("出库日期", DateGroupEnum.Year, "年")

g.Groups.AddDef("出库日期", "月")

g.Totals.AddDef("出库数量", "", "数量_值")

g.Totals.AddDef("金额", "", "金额_值")

g.Totals.AddDef("利润", "", "利润_值")

g.SamePeriodGrowth = True

g.CircleGrowth = True

g.VerticalTotal = True '自动垂直汇总

Tables("月销售曲线_Table1").DataSource = g.BuildDataSource()

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

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

Dim t As Table = Tables("月销售曲线_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)("金额") '指定垂直坐标

问题：根据生成统计表生成按月的曲线图。曲线图没有出来

是不是你的列名写错了啊？ Series.Y(i) = t.Rows(i)("金额")

做个小例子上来看看

请帮忙看看，所有的东西，包括窗体，执行过程，代码都在上面，帮助也看了很多遍，唯一可能有错的地方在图片点击可在新窗口打开查看

此主题相关图片如下：无标题4.png

，这是帮助中的列子，感觉问题是出在这，但又没法解决，谢谢，在线等。

另外，提个建议，可否在命令窗口中加入分布执行的按钮？

顺便也顶下，免得沉底了

最简单的，是你上传一个例子；

或者，你直接查看一下生成的表的表结构 http://www.foxtable.com/help/topics/0193.htm

问题已解决，原来是因为自动合计的问题，自动合计去掉后一切正常

主题：图表问题