求助:如何根据Table中的数据来生成二维,三维柱状图

Question

我在做一个人员的统计系统,统计结果显示在一个Table里.现在可以输出为Excel文件.但还要求根据统计结果来生成柱状图,希望大侠们给点建议,谢谢.

Answer 1

www.codeproject.com上面有相关的文章和代码!

Answer 2

我自己做了一个Windows Form Control，数据源是DataView，可以产生线形图、柱状图或者饼图，要不要帮我测试，哈哈

Answer 3

to:ffjing(猪头不卖) 
我想要发我油箱里来吧
[email protected]
在给我源吗哈

Answer 4

/////////////////////////////////////////////////////////////////
代码是VB NET的，但方法是一样的，C#的代码我正在找，还没找到！
////////////////////////////////////////////////////////////////
    '创建页面事件 
    Private Sub Page_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load        '声明整型变量i，
        Dim i As Integer        '创建一个位图对象，用来放置柱形图，我们可以把它看作是一块画布。
        '这里宽、高分别是400和200，当然，你也可以根据需要把它们做为参数来进行传递。 
        Dim objBitMap As New Bitmap(400, 200)        '声明一个图形对象，在上面创建的位图上画图。 
        Dim objGraphics As Graphics        '从指定的objBitMap对象创建新图形对象objGraphics。
        objGraphics = Graphics.FromImage(objBitMap)        '清除整个绘图面并以指定白色为背景色进行填充。 
        objGraphics.Clear(Color.White)        '创建一个数据源，这里我们为了方便其间，采用数组做为柱形图和饼图的数据源。 
        Dim arrValues(6) As Integer
        arrValues(0) = 100
        arrValues(1) = 135
        arrValues(2) = 115
        arrValues(3) = 125
        arrValues(4) = 75
        arrValues(5) = 120
        arrValues(6) = 40        '定义数组对象，用来描述图例。
        Dim arrValueNames(6) As String
        arrValueNames(0) = "一月"
        arrValueNames(1) = "二月"
        arrValueNames(2) = "三月"
        arrValueNames(3) = "四月"
        arrValueNames(4) = "五月"
        arrValueNames(5) = "六月"
        arrValueNames(6) = "七月"        '在画布（objBitMap对象）的坐标5，5处，用指定的Brush（画笔）对象和Font（字体）对象绘制统计图标题。
        objGraphics.DrawString(" X 公司上半年销售情况", _
        New Font("宋体", 16), Brushes.Black, New PointF(5, 5))        '创建图例文字。 
        Dim symbolLeg As PointF = New PointF(335, 20)
        Dim descLeg As PointF = New PointF(360, 16)        '画出图例。利用objGraphics图形对象的三个方法画出图例：
        'FillRectangle()方法画出填充矩形，DrawRectangle()方法画出矩形的边框，
        'DrawString()方法画出说明文字。这三个图形对象的方法在 .NET 框架类库类库中均已重载，
        '可以很方便根据不同的参数来画出图形。
        For i = 0 To arrValueNames.Length - 1            '画出填充矩形。
            objGraphics.FillRectangle(New SolidBrush(GetColor(i)), symbolLeg.X, symbolLeg.Y, 20, 10)            '画出矩形边框。
            objGraphics.DrawRectangle(Pens.Black, symbolLeg.X, symbolLeg.Y, 20, 10)            '画出图例说明文字。
            objGraphics.DrawString(arrValueNames(i).ToString, New Font("宋体", 10), Brushes.Black, descLeg)            '移动坐标位置，只移动Y方向的值即可。
            symbolLeg.Y += 15
            descLeg.Y += 15        Next i        '遍历数据源的每一项数据，并根据数据的大小画出矩形图（即柱形图的柱）。        For i = 0 To arrValues.Length - 1            '画出填充矩形。
            objGraphics.FillRectangle(New SolidBrush(GetColor(i)), _
            (i * 35) + 15, 200 - arrValues(i), 20, arrValues(i) + 5)
            '画出矩形边框线。
            objGraphics.DrawRectangle(Pens.Black, (i * 35) + 15, 200 - arrValues(i), 20, arrValues(i) + 5)        Next
        ''****************************************************************************************
        ''下面画饼图。先定义两个变量，代表当前角度和总角度，以便于画图时将角度进行按比例换算。 
        'Dim sglCurrentAngle As Single = 0
        'Dim sglTotalAngle As Single = 0        ''定义一个变量，代表总的销售额。
        'Dim sglTotalValues As Single = 0        ''计算总销售额。
        'For i = 0 To arrValues.Length - 1
        '    sglTotalValues += arrValues(i)
        'Next        'i = 0        ''遍历数据源的每一项数据，并根据数据的大小画出饼图。
        ''图形对象的FillPie()方法和DrawPie()在.NET 框架类库中已重载。
        'For i = 0 To arrValues.Length - 1        '    '计算当前角度值：当月销售额 / 总销售额 * 360，得到饼图中当月所占的角度大小。 
        '    sglCurrentAngle = arrValues(i) / sglTotalValues * 360        '    '画出填充圆弧。
        '    objGraphics.FillPie(New SolidBrush(GetColor(i)), _
        '    220, 95, 100, 100, sglTotalAngle, sglCurrentAngle)        '    '画出圆弧线。
        '    objGraphics.DrawPie(Pens.Black, 220, 95, 100, 100, sglTotalAngle, sglCurrentAngle)        '    '把当前圆弧角度加到总角度上。
        '    sglTotalAngle += sglCurrentAngle        'Next i
        ''***************************************************************************************        '将objGraphics对象以指定的图形格式（这里是Gif）保存到指定的Stream对象，并输出到客户端。 
        objBitMap.Save(Response.OutputStream, ImageFormat.Gif)    End Sub    '下面这段函数用来根据不同的月份返回不同的颜色值。
    Private Function GetColor(ByVal itemIndex As Integer) As Color        Dim objColor As Color        Select Case itemIndex
            Case 0
                objColor = Color.Blue
            Case 1
                objColor = Color.Red
            Case 2
                objColor = Color.Yellow
            Case 3
                objColor = Color.Purple
            Case 4
                objColor = Color.Orange
            Case 5
                objColor = Color.Brown
            Case 6
                objColor = Color.Gray
            Case 7
                objColor = Color.Maroon
            Case 8
                objColor = Color.Maroon
            Case Else
                objColor = Color.Blue
        End Select
        Return objColor
    End Function

Answer 5

谢谢各位的捧场,我现在正在研究大家的方法.刚才试了TeeChart.不太会用,为什么我编辑了Chart属性,在Visual Stuio.Net中能显示,生成aspx页面却只显示两个坐标轴,而没有图线呢?

Answer 6

可是teechart是收费的啊！有没有免费的？