【图表】在生成时，提示无效的数据类型，该这么解决呢？ - 专家坐堂 - 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编辑过]

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

有点甜老师

现在这个还是不是理想图标

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

理想图标是Y显示销售额 X显示一月二月 …… 三个部门弄成三个图标

现在怎么实现呢?

比如现在第一个图标是硅藻泥店的怎么定义一个门店名称等于硅藻泥店的图标呢

[此贴子已经被作者于2017/12/1 10:30:07编辑过]

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 '定义一个图系变量

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