Private transpose As Boolean = True
 
    Private Sub multiLineOrBarChart()
 
        Dim dt As New DataTable("Date")
        dt.Columns.Add("Year", GetType(Integer))
        dt.Columns.Add("Q1", GetType(Integer))
        dt.Columns.Add("Q2", GetType(Integer))
        dt.Columns.Add("Q3", GetType(Integer))
        dt.Columns.Add("Q4", GetType(Integer))
 
        Dim r As New Random
 
        For i = 2001 To 2010
            Dim dr As DataRow = dt.NewRow
            dr("Year") = i
            dr("Q1") = CInt(r.NextDouble * 50000)
            dr("Q2") = CInt(r.NextDouble * 30000)
            dr("Q3") = CInt(r.NextDouble * 70000)
            dr("Q4") = CInt(r.NextDouble * 40000)
            dt.Rows.Add(dr)
        Next
 
        If transpose Then
            dt = TransposeTable(dt)
            dt.Columns(0).ColumnName = "Quarter"
 
            ' For transposed table
            Me.Chart1.DataSource = dt
            Me.Chart1.Series.Clear()
            For i = 1 To dt.Columns.Count - 1
                Dim s As Series = New Series("Series" & i.ToString())
                Me.Chart1.Series.Add(s)
                s.XValueMember = "Quarter"
                s.YValueMembers = dt.Columns(i).ColumnName
                s.LegendText = s.YValueMembers
                s.BorderWidth = 3
                s.ChartType = DataVisualization.Charting.SeriesChartType.Column _
                  ' or e.g. .Bar 
            Next
        Else
 
            ' For direct table
            Me.Chart1.DataSource = dt
            Me.Chart1.Series.Clear()
            For i = 1 To 4
                Dim s As Series = New Series("Series" & i.ToString())
                Me.Chart1.Series.Add(s)
                s.XValueMember = "Year"
                s.YValueMembers = "Q" & i.ToString()
                s.LegendText = s.YValueMembers
                s.BorderWidth = 3
                s.ChartType = DataVisualization.Charting.SeriesChartType.Column _
                  ' or e.g. .Bar 
            Next
        End If
 
        DataGridView1.DataSource = dt
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist