统计图示_Button1_Click

Dim sql2 As String = "S   elect 到款金额,到款日期,{合同管理_主列表}.大区 FROM {合同管理_发票到款列表} INNER JOIN {合同管理_主列表} ON {合同管理_发票到款列表}.合同编号 = {合同管理_主列表}.合同编号 where year({合同管理_发票到款列表}.[到款日期]) = 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 \'显示图列

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

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

改成

Series.Text = c.Caption