以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教条形图表X轴问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111810)

--  作者:weipeng6999
--  发布时间:2017/12/29 15:51:00
--  请教条形图表X轴问题

老师,我想在条形图X轴上按月统计,显示出来的结果如图所示
此主题相关图片如下:qqq.jpg
按此在新窗口浏览图片

 

代码如下:
Dim b As New GroupTableBuilder("统计表1",DataTables("开票指令"))
b.Groups.AddDef("月")
b.Totals.AddDef("销售清单_实际要货数量")
Tables("图表_Table1").DataSource = b.BuildDataSource()

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形)
Chart.DataSource = "图表_Table1" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text = "销售清单_实际要货数量"
Series.X.DataField = "月" \'X轴绑定到产品列
Series.Y.DataField = "销售清单_实际要货数量" \'Y轴绑定到数量列
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)