【图表】在生成时，提示无效的数据类型，该这么解决呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

【图表】在生成时，提示无效的数据类型参照教程制作的该这么解决呢？

想实现按照门店名称不同进行筛选生成三个不同的图表，采用下面的样式

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

代码如下

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

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

Dim t As Table = Tables("门店产值") '定义一个变量t引用数据表

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

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

Chart.SeriesList.Clear() '清除图表原来的图系

For Each c As Col In t.Cols

If c.Name <> "门店名称" Then

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

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

Series.Length = t.Rows.Count '设置图系的长度

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

Series.X(r) = r

Series.Y(r) = t.Rows(r)(c.Name)

End If

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

Chart.AxisX.SetValueLabel(r, t.Rows(r)("门店名称")) '指定字符表示

'Series.DataLabelText = "{#YVAL}"

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

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

Chart.LegendVisible = True '显示图列

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

运行提示错误如下

此主题相关图片如下：2.jpg

数据库表如下

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

[此贴子已经被作者于2017/12/1 4:17:51编辑过]

主题：【图表】在生成时，提示无效的数据类型，该这么解决呢？