vs2010中对mschart控件使用的一些心得

一 在页面中先添加一个chart控件,不用做什么设置,把自动生成的那个series删除掉,只设置其大小和ID就可以了,其它的在代码中进行设置.

二 所绑定的数据是根据所选条件的不同查询数据后进行动态绑定的,以前认为这个比较复杂,原来也是很简单的,对数据进行表绑定和交叉表绑定很实用.getdata是一个自己写的函数,用于根据所填写的sql语句返回相应的数据集

三 关于tooltip的提示信息的绑定,这个目前为止还没有找到如何对其数据进行运算的方法,如果哪位找到了请留言,代码比较乱,大家凑和地看吧.

下面是代码:

 

Select Case lx
            Case "销售台次"
                sql = "select month(日期) as 月份,月台次 from 产值_销售 where year(日期)='" & year & "' and day(dateadd(""d"",1,日期))='1' and 所在店='" & szd & "' order by 日期"
                CH_xs.DataBindTable(hr.GetData(sql), "月份")
                CH_xs.Series(0).Label = "#VAL"
                ch_xs1.DataBindTable(hr.GetData(sql), "月份")
                ch_xs1.Series(0).Label = "#VAL"
            Case ("售后产值")
                sql = "select month(日期) as 月份,售后月产值 as 月产值 from 产值_售后 where year(日期)='" & year & "' and day(dateadd(""d"",1,日期))='1' and 所在店='" & szd & "' order by 日期"
                CH_xs.DataBindTable(hr.GetData(sql), "月份")
                ch_xs1.DataBindTable(hr.GetData(sql), "月份")
                CH_xs.Series(0).Label = "#VAL"

                CH_xs.Series(0).ToolTip = "本月产值:#VAL"
                ch_xs1.Series(0).Label = "#VAL"
            Case ("集团产值")
                sql = "select month(日期) as 月份,所在店,(售后月产值/10000) as 月产值 from 产值_售后 where year(日期)='" & year & "' and day(dateadd(""d"",1,日期))='1' order by 日期"
                CH_xs.DataBindCrossTable(hr.GetData(sql), "所在店", "月份", "月产值", "Label=月产值{C}")
                ch_xs1.DataBindCrossTable(hr.GetData(sql), "所在店", "月份", "月产值", "Label=月产值{C}")
                CH_xs.Series(0).Label = "#VAL"

                'CH_xs.Series(0).ToolTip = "本月产值:#VAL"
                ch_xs1.Series(0).Label = "#VAL"
                CH_xs.Width = "1200"
                ch_xs1.Width = "1200"
            Case ("集团台次")
                sql = "select month(日期) as 月份,所在店,月台次 from 产值_销售 where year(日期)='" & year & "' and day(dateadd(""d"",1,日期))='1' order by 日期"
                CH_xs.DataBindCrossTable(hr.GetData(sql), "所在店", "月份", "月台次", "Label=月台次")
                ch_xs1.DataBindCrossTable(hr.GetData(sql), "所在店", "月份", "月台次", "Label=月台次")
                CH_xs.Series(0).Label = "#VAL"

                'CH_xs.Series(0).ToolTip = "本月产值:#VAL"
                ch_xs1.Series(0).Label = "#VAL"
                CH_xs.Width = "1200"
                ch_xs1.Width = "1200"
                   End Select
        Dim i As Integer
        For i = 0 To ch_xs1.Series.Count - 1
            ch_xs1.Series(i).ChartType = DataVisualization.Charting.SeriesChartType.Line
            ch_xs1.Series(i).MarkerStyle = DataVisualization.Charting.MarkerStyle.Circle
            ch_xs1.Series(i).MarkerSize = 8
            ch_xs1.Series(i).BorderWidth = "3"
            ch_xs1.Series(i).ShadowColor = Drawing.Color.Black
            ch_xs1.Series(i).BorderColor = Drawing.Color.Aqua
            ch_xs1.Series(i).ShadowOffset = 2
            ch_xs1.Series(i).YValueType = DataVisualization.Charting.ChartValueType.Double
            ch_xs1.Series(i).XValueType = DataVisualization.Charting.ChartValueType.Double
        Next

        CH_xs.ChartAreas(0).Area3DStyle.IsClustered = True
        CH_xs.ChartAreas(0).Area3DStyle.Enable3D = True
        CH_xs.ChartAreas(0).Area3DStyle.LightStyle = DataVisualization.Charting.LightStyle.Realistic
        For i = 0 To CH_xs.Series.Count - 1
            CH_xs.Series(i).ChartType = DataVisualization.Charting.SeriesChartType.Column
            CH_xs.Series(i).MarkerStyle = DataVisualization.Charting.MarkerStyle.None
            CH_xs.Series(i).ShadowColor = Drawing.Color.Black
            CH_xs.Series(i).ShadowOffset = 2
        Next