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

Dim b As New GroupTableBuilder("统计表1", DataTables("文件清单"))

b.Groups.AddDef("文件分类") '添加客户列用于分组

'b.HGroups.AddDef("客户")

b.Groups.AddDef("编制日期", DateGroupEnum.Year, "年") '

b.Groups.AddDef("编制日期", "月份")

b.Totals.AddDef("文件分类", AggregateEnum.Count, "份数")

Tables("文件统计窗口_Table1").DataSource = b.BuildDataSource()

Dim Chart As WinForm.Chart '

Dim Series As WinForm.ChartSeries '

Dim t As Table = Tables("文件统计窗口_Table1") '

Chart = e.Form.Controls("Chart1") '

Chart.ChartType = ChartTypeEnum.Bar '

Chart.DataSource = "文件统计窗口_Table1" '

Chart.SeriesList.Clear() '

For Each c As Col In t.Cols

If c.Name <> "文件分类" Then

Series = Chart.SeriesList.Add() '

Series.Text = c.Name '

Series.X.DataField = "

Series.Y.DataField = c.Name '

End If

Chart.VisualEffect = True '

Chart.LegendVisible = True '

Chart.LegendCompass = CompassEnum.South '

执行上面的代码，图表与表的数据不符，如何解决？

此主题相关图片如下：图表问题-1.jpg

Dim Chart As WinForm.Chart '

Dim Series As WinForm.ChartSeries '

Dim t As Table = Tables("文件统计窗口_Table1") '

Chart = e.Form.Controls("Chart1") '

Chart.ChartType = ChartTypeEnum.Bar '

Chart.DataSource = "文件统计窗口_Table1" '

Chart.SeriesList.Clear() '

For Each c As Col In t.Cols

If c.Name <> "文件分类" Then

Series = Chart.SeriesList.Add() '

Series.Text = c.Name '

Series.X.DataField = "文件分类"

' Series.Y.DataField = c.Name '

Series.Y.DataField = "编制日期" '设置Y轴的绑定列

Chart.AxisX.SetValueLabel(1, "一月份")

End If

Chart.VisualEffect = True '

Chart.LegendVisible = True '

Chart.LegendCompass = CompassEnum.South '

没有按年月、份数(b.Totals.AddDef("文件分类", AggregateEnum.Count, "份数")显示

此主题相关图片如下：图表显示问题.jpg

主题：图表问题