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

Dim Filter As String '设置筛选条件

With e.Form.Controls("DW")

If .Value IsNot Nothing Then

Filter = "所属单位 = '" & .Value & "'"

End If

End With

With e.Form.Controls("BMLX") '在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "部门类型 = '" & .Value & "'"

End If

End With

With e.Form.Controls("BM") '在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "上级部门 = '" & .Value & "'"

End If

End With

Dim b As New SQLgroupTableBuilder("零售业务分析","零售业务")

b.AddTable("零售业务","部门名称","部门档案","部门名称")

b.Groups.AddExp("年","Year(所属日期)")

b.Groups.AddExp("月","month(所属日期)")

b.Groups.AddDef("所属单位")

b.Groups.AddDef("上级部门","部门")

b.Groups.AddDef("部门类型")

b.Totals.AddDef("零售数量","零售数量_本月")

b.Totals.AddDef("零售数量","零售数量_累计")

b.Decimals = 0 '小数点取0位

b.Filter = Filter

b.Build '生成统计表

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

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

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

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

For Each Year As String In DataTables("零售业务分析").GetValues("年")

Series = Chart.SeriesList.Add() '每年一个图系

Series.Text = Year '指定图系名称为年份

Series.Length = 12 '指定图系的数据点数,1年12个月

Chart.AxisX.Min = 1 '指定X轴的最小值,也就是从1月开始

Chart.AxisX.Max = 12 ''指定X轴的最大值,一年只有12个月

For Month As Integer = 1 To 12 '逐月设置坐标

Series.X(Month) = Month '指定水平坐标为月份

Dim r As DataRow = DataTables("零售业务分析").Find("年 = " & Year & " And 月 = " & Month)'找出对应年月的行

If r IsNot Nothing '如果找到对应年月的行

Series.Y(Month) = r("零售数量_本月") '指定数量作为垂直坐标

End If

Chart.TopMost = True

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

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

Chart.LegendVisible = True '显示图列

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

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

这里横坐标如何显示月份呢

主题：关于图表横坐标取值问题