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

-- [求助]图表

Dim cmb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim b As New CrossTableBuilder("统计表1", DataTables("明细"), "[日期] >= #1/1/" & cmb1.value & "# And [日期] <= #12/31/" & cmb1.value & "#")

b.HGroups.AddDef("日期",DateGroupEnum.Year,"年") \'添加日期列用于垂直分组,按年分组

b.HGroups.AddDef("日期","月") \'添加日期列用于垂直分组,按年分组

\'b.HGroups.AddDef("名称") \'添加产品列用于垂直分组

b.VGroups.AddDef("部门") \'添加产品列用于垂直分组

b.Totals.AddDef("数量") \'添加数量列用于统计

b.Totals.AddDef("总价") \'添加数量列用于统计

b.Build \'生成统计表

e.form.controls("table1").Table.datasource = b.builddatasource()\'窗口表数据等于该创建表

Tables("汇总1_Table1").AutoSizeCols \'自动适应列宽

此主题相关图片如下：微信图片_20201119154202.png

通过这个分组再生成图表，这个车间11_数量应该怎么写代码？因为不是固定的，标题是数量_1 总价_1 一直递增的，麻烦老师指导下代码应该如何修改

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

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

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

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

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

Chart.ChartType2 = ChartTypeEnum.XYPlot \'图表2类型该为线形

Chart.DataSource = "统计表1" \'设置绑定表

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

Series = Chart.SeriesList.Add() \'给图表1增加一个图系

Series.Text = "数量"

Series.X.DataField = "月" \'X轴绑定到产品列

Series.Y.DataField = "数量_1" \'Y轴绑定到数量列

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

Series = Chart.SeriesList2.Add() \'给图表2增加一个图系

Series.Text = "总价"

Series.X.DataField = "月" \'X轴绑定到产品列

Series.Y.DataField = "总价_1" \'Y轴绑定到数量列

Chart.LegendVisible = True \'显示图列

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

Chart.AxisY.Text = "数量"

Chart.AxisY2.Text = "总价"