How to display columns from a datagrid to a chart

Question

0.00/5 (No votes)

See more:

Hello, How can I show values from datagridview columns to chart?
I would like to show on x axis column "Datum a čas" and on y axis column "Plnění normy". I did it for textboxes but I dont known how can I do it for datagridview.

here is a datagridview: Imgur: The magic of the Internet[^]

What I have tried:

With Me.Chart3
            .Legends.Clear()
            .Series.Clear()
            .ChartAreas.Clear()
            .Titles.Clear()
        End With

        Dim areas1 As ChartArea = Me.Chart3.ChartAreas.Add("Areas1")
        With areas1
        End With

        Dim series1 As Series = Me.Chart3.Series.Add("Series1")
        Chart3.ChartAreas("Areas1").Area3DStyle.Enable3D = True
        Chart3.ChartAreas(0).BackColor = Color.Transparent
        With series1
            .ChartArea = areas1.Name
            .ChartType = SeriesChartType.Line
                       
            .Points.AddXY("Splněno", TextBox11.Text.Substring(0, TextBox11.Text.Length - 1))
            .Points.AddXY("Nesplněno", dopocet.Substring(0, 2))
            Chart3.Series("Series1").Points(0).Color = System.Drawing.Color.LimeGreen
            Chart3.Series("Series1").Points(1).Color = System.Drawing.Color.Red
            Chart3.Series("Series1").Font = New System.Drawing.Font("Times New Roman", 15.0F, System.Drawing.FontStyle.Bold)
        End With

        Dim T As Title = Chart3.Titles.Add("Plnění normy poslední evidence [%]")
        With T
            .ForeColor = Color.Black
            .BackColor = Color.LightBlue
            .Font = New System.Drawing.Font("Times New Roman", 15.0F, System.Drawing.FontStyle.Bold)
            .BorderColor = Color.Black
        End With
        Chart3.Series(0).LabelFormat = "{#'%'}"
        Chart3.Series("Series1").IsValueShownAsLabel = True
        'graf_posledni_evidence.Legends(1).Enabled = False
        Chart3.Series("Series1").Color = Color.Black
        Dim legends1 As Legend = Me.Chart3.Legends.Add("Legends1")
        Chart3.Legends(0).BackColor = Color.Transparent
        Chart3.Legends(0).Font = New System.Drawing.Font("Times New Roman", 15.0F, System.Drawing.FontStyle.Bold)
    End Sub

Posted 2-Jan-19 21:12pm

Fiínek Cahů

Updated 3-Jan-19 4:50am

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard MacCutchan · Answer 1 · 2019-01-02T22:30:00

Solution 1

See datagridview columns to chart - Google Search[^]

Posted 2-Jan-19 22:30pm

Richard MacCutchan

Fiínek Cahů · Answer 2 · 2019-01-03T04:51:00

Dim dtPieChartData = New DataTable()
       dtPieChartData.Columns.Add("Datum a čas")
       dtPieChartData.Columns.Add("Plnění normy")
       For Each row As DataGridViewRow In DataGridView1.Rows

           Dim indexCategoryColumn As Integer = 0
           Dim indexTotalColumn As Integer = 12
           dtPieChartData.Rows.Add(row.Cells(indexCategoryColumn).Value, row.Cells(indexTotalColumn).Value)

       Next

       Chart3.DataSource = dtPieChartData
       Chart3.Series("Series1").XValueMember = "Datum a čas"
       Chart3.Series("Series1").YValueMembers = "Plnění normy"
       Chart3.Titles.Add("Category Title")
       Chart3.Series("Series1").ChartType = SeriesChartType.Line
       Chart3.Series("Series1").IsValueShownAsLabel = True