主题：统计直方图的图示问题

统计图示_Button1_Click

 

Dim sql2 As String = "S   elect 到款金额,到款日期,{合同管理_主列表}.大区 FROM {合同管理_fa piao到款列表} INNER JOIN {合同管理_主列表} ON {合同管理_fa piao到款列表}.合同编号 = {合同管理_主列表}.合同编号 where year({合同管理_fa piao到款列表}.[到款日期]) = year(getdate())"

Dim b2 As New CrossTableBuilder("到款统计表2",sql2, "SHBIOCRM")

b2.HGroups.AddDef("大区")

'b.VGroups.AddDef("到款日期",DateGroupEnum.Year,"{0}年")

b2.VGroups.AddDef("到款日期","{0}月")

b2.Totals.AddDef("到款金额")

b2.Build()

'MainTable = Tables("到款统计表")

 

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

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

Dim t As Table = Tables("到款统计表2") '定义一个变量t引用数据表

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

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

Chart.DataSource = "到款统计表2" '设置绑定表

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

For Each c As Col In t.Cols

    If c.Name <> "大区"  Then

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

        Series.Text = c.Name '设置图系的标题

        Series.X.DataField = "大区" 'X轴绑定到产品列

        Series.Y.DataField = c.Name '设置Y轴的绑定列

        End If

Next

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

Chart.LegendVisible = True '显示图列

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

Series.Text = c.Name '设置图系的标题

 

改成

 

Series.Text = c.Caption

谢谢！