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

For Each c As Col In t.Cols

If c.Name <> "门店名称" andalso 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) = val(t.Rows(r)(c.Name))

End If

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 r As Integer = 0 To t.Rows.Count - 1
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = t.rows(r)("门店名称") '设置图系的标题
    Series.Length = t.cols.Count - 2 '设置图系的长度
    For i As Integer = 2 To t.cols.count-1
        Series.X(i-2) = i-2
        Series.Y(i-2) = t.Rows(r)(t.cols(i).name)
        Chart.AxisX.SetValueLabel(i-2, t.cols(i).name) '指定字符表示
    Next
Next

'Series.DataLabelText = "{#YVAL}"
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

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

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