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

代码：

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

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

Dim tbl As DataTable = DataTables("职工工资发放明细表") '定义一个变量tbl引用数据表

Dim lst As List(Of String) = tbl.GetValues("月份","身份证号 = '8' and 年 = '2018'") '获得产品名称集合

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

Chart.VisualEffect = True

Chart.ChartType = ChartTypeEnum.bar

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

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

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

For i As Integer = 0 To lst.Count -1 '指定每个数据点的位置

Series.X(i) = i '指定水平坐标

Series.Y(i) = tbl.Compute("Sum(应发合计)","[身份证号] = '8' and 月份 = '"& lst(i) &"'") '指定垂直坐标

Chart.AxisX.SetValueLabel(i,lst(i)) '指定字符表示

Chart.AxisX.AnnoWithLabels = True '

效果:

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

问题：

1、后台数据是有3列的，也就是应该有三根柱子，可是只显示两根。

2、每刷新一次，X坐标的字符就会重叠一次。

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

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

Dim tbl As DataTable = DataTables("职工工资发放明细表") '定义一个变量tbl引用数据表

Dim lst As List(Of String) = tbl.GetValues("月份","身份证号 = '8' and 年 = '2018'") '获得产品名称集合

msgbox(lst.Count) ‘弹出什么内容’

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

Chart.VisualEffect = True

Chart.ChartType = ChartTypeEnum.bar

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

Chart.AxisX.ClearValueLabel

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

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

For i As Integer = 0 To lst.Count -1 '指定每个数据点的位置

Series.X(i) = i '指定水平坐标

msgbox(tbl.Compute("Sum(应发合计)","[身份证号] = '8' and 月份 = '"& lst(i) &"'") )‘弹出什么内容’

Series.Y(i) = tbl.Compute("Sum(应发合计)","[身份证号] = '8' and 月份 = '"& lst(i) &"'") '指定垂直坐标

Chart.AxisX.SetValueLabel(i,lst(i)) '指定字符表示

Chart.AxisX.AnnoWithLabels = True '

msgbox(lst.Count) ‘弹出什么内容’ 这个弹出的是 3

msgbox(tbl.Compute("Sum(应发合计)","[身份证号] = '8' and 月份 = '"& lst(i) &"'") )‘弹出什么内容’ 这里弹出的是2个有结果，1个是0

不知道为什么总有一个计算不到。

然后我增加到6个数据，也只计算5个；增加到7个数据，也只计算6个。总是会丢一个。

Series.Length = lst.Count +1 '设置图系的长度

Series.Y(0) = 0

For i As Integer = 1 To lst.Count '指定每个数据点的位置

Series.X(i) = i '指定水平坐标

Series.Y(i) = tbl.Compute("Sum(应发合计)","[身份证号] = '8' and 月份 = '"& lst(i-1) &"'") '指定垂直坐标

Chart.AxisX.SetValueLabel(i,lst(i-1).Substring(5,3)) '指定字符表示

Chart.AxisX.AnnoWithLabels = True '

改成这样可以了，长度加了一个1，另外Y定了个0

现在正常了

主题：图表问题