投标统计里面统计了含经营状态到期的，但是中标统计里面只统计了经营状态正常的，生成的柱状图下面所属机构是模糊的

 投标统计：

代码如下：

    \'图表,本年中标情况

    Dim d1 As  Date = Date.today.year & "-" & 1 & "-" & 1  \'当年
    Dim cmd7 As New SQLCommand
    Dim dt7 As DataTable
    cmd7.CSel  ect {分支机构管理}.所属机构,经营状态,项目编码,项目名称,报名日期 From {分支机构管理} Left JOIN (se lect * from {报名登记表} where [报名日期] > \'" & d1 & "\') a ON a.[所属机构] = {分支机构管理}.[所属机构]" 
    dt7 = cmd7.ExecuteReader()
    Dim Chart  As WinForm.Chart  \'定义一个图表变量
    Dim Series As WinForm.ChartSeries \'定义一个图系变量
    Dim tbl As DataTable =  dt7 \'定义一个变量tbl引用数据表
    Dim lst As List(Of String) = tbl.GetValues("所属机构") \'获得产品名称集合
    Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
    Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形),不加这一句为折线图
    Chart.SeriesList.Clear() \'清除图表原来的图系
    Chart.AxisY.Text = "投标数量(个)"
    Series = Chart.SeriesList.Add() \'增加一个图系
    Series.Length = lst.Count \'设置图系的长度
    For i As Integer =  0  To lst.Count -  1  \'指定每个数据点的位置
        Series.X(i) = i \'指定水平坐标
        Series.Y(i) = val(tbl.Compute("Count(项目编码)","[所属机构] = \'" & lst(i) & "\'"))  \'指定垂直坐标
        Chart.AxisX.SetValueLabel(i, lst(i))  \'指定字符表示
        Series.DataLabelText = "{#YVAL}"  \'显示Y轴的值
        Series.DataLabelCompass = LabelCompassEnum.North  \'标识的位置
    Next
    Chart.AxisX.AnnoRotation = - 45 \'X轴文字角度
    Chart.AxisX.AnnoWithLabels = True \'启用字符标示

此主题相关图片如下：投标统计.png

中标统计：代码如下：

    Dim d1 As  Date = Date.today.year & "-" & 1 & "-" & 1  \'当年
    Dim cmd5 As New SQLCommand
    Dim dt5 As DataTable
    cmd5.CSele ct {分支机构管理}.所属机构,经营状态,中标金额,中标日期,项目名称 From{分支机构管理} Left JOIN (sel ect * from {中标统计}  where [中标日期] > \'" & d1 & "\') a ON a.[所属机构] = {分支机构管理}.[所属机构] where [经营状态]=\'正常\'"
    dt5 = cmd5.ExecuteReader()
    Dim Chart  As WinForm.Chart  \'定义一个图表变量
    Dim Series As WinForm.ChartSeries \'定义一个图系变量
    Dim tbl As DataTable =  dt5 \'定义一个变量tbl引用数据表
    Dim lst As List(Of String) = tbl.GetValues("所属机构") \'获得产品名称集合
    Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
    Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形),不加这一句为折线图
    Chart.SeriesList.Clear() \'清除图表原来的图系
    Chart.AxisY.Text = "中标金额(万元)"
    Series = Chart.SeriesList.Add() \'增加一个图系
    Series.Length = lst.Count \'设置图系的长度
    For i As Integer =  0  To lst.Count -  1  \'指定每个数据点的位置
        Series.X(i) = i \'指定水平坐标
        Series.Y(i) = cint(val(tbl.Compute("Sum(中标金额)","[所属机构] = \'" & lst(i) & "\'")) / 10000) \'指定垂直坐标,cint(保留整数)
        Chart.AxisX.SetValueLabel(i, lst(i))  \'指定字符表示
        Series.DataLabelText = "{#YVAL}"  \'显示Y轴的值
        Series.DataLabelCompass = LabelCompassEnum.North  \'标识的位置
    Next
    Chart.AxisX.AnnoRotation = - 45 \'X轴文字角度
    Chart.AxisX.AnnoWithLabels = True \'启用字符标示

此主题相关图片如下：中标统计.png

看不清所属机构啊，

生成新的图系前也清除了原来图系，但就是有重影一样，比如中标统计最后一个机构应该是总公司，却有个内蒙古分公司重影在上面