Sub Load_chart(ByVal strSQL)
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dv As DataView
        dv = New DataView(dt)
        Dim da As New OleDbDataAdapter(strSQL, conn)
        da.Fill(dt)
        Chart1.Series.Clear()
        Chart1.Palette = ChartColorPalette.Pastel
        Chart1.DataBindTable(dv, "Jahr")
 
        ds = Nothing
    End Sub

ActiveChart.PlotBy = xlColumns

________
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

"Select Jahr, Jan, Feb, Mrz, Apr, Mai, Jun, Jul, Aug, Sep, Okt, Nov, Dez from" & _
  "Energiedaten2009 where MS_KEY='" & Split(tvw.SelectedNode.Text, " -")(1) & _
  "'"""

CharType.Bar

ChartType.Column

________
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

________
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

Gruss Caddy

________
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

    ' Transponieren einer Datatable
    ' newName- der Name der neuen Datatable
    ' dt- die zu transponierende Datatable
    ' anfCol- Steuerparameter (-1 heißt, die neuen Spalten werden 
    ' durchnummeriert;
    ' 0 heißt, es wird die erste Spalte für die neuen Spaltenheader verwendet
    Public Function transposeDatatable(ByVal newName As String, _
      ByVal dt As DataTable, _
      Optional ByVal anfCol As Short = -1) As DataTable
 
        Dim table As New DataTable(newName)
        Dim r As DataRow
        Dim ak As Short
 
        If anfCol < 0 Then ak = 0 Else ak = 1
        ' neue Spalten durchnummerieren
        For i As Integer = 0 To dt.Rows.Count - ak
            If anfCol < 0 Then
                table.Columns.Add(i.ToString)
            Else
                table.Columns.Add(dt.Rows(i).Item(anfCol))
            End If
        Next i
 
        ' Zeilen aus Spalten zusammenstellen
        For k As Integer = ak To dt.Columns.Count - 1
            r = table.NewRow()
            r(0) = dt.Columns(k).ToString
            If anfCol < 0 Then
                For j As Integer = 1 To dt.Rows.Count
                    r(j) = dt.Rows(j - 1)(k)
                Next j
            Else
                For j As Integer = 0 To dt.Rows.Count - ak
                    r(j) = dt.Rows(j)(k)
                Next j
            End If
            table.Rows.Add(r)
        Next k
 
        Return table
    End Function

   Sub Load_chart(ByVal strSQL)
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dt1 As New DataTable
        Dim strTabname As String = "Test"
        Dim dv As DataView
 
        Dim da As New OleDbDataAdapter(strSQL, conn)
 
        da.Fill(dt)
        dt1 = transposeDatatable("dt1", dt, 0)
        dv = New DataView(dt1)
        dgv.DataSource = dt1
 
        Chart1.Palette = ChartColorPalette.Pastel
 
        Chart1.DataBindTable(dv)
 
        ds = Nothing
 
    End Sub

    Private Function TransposeTable(ByVal inputTable As DataTable) As DataTable
        Dim outputTable As New DataTable()
 
        ' Add columns by looping rows
 
        ' Header row's first column is same as in inputTable
        outputTable.Columns.Add(inputTable.Columns(0).ColumnName.ToString())
 
        ' Header row's second column onwards, 'inputTable's first column taken
        For Each inRow As DataRow In inputTable.Rows
            Dim newColName As String = inRow(0).ToString()
            outputTable.Columns.Add(newColName)
        Next
 
        ' Add rows by looping columns        
        For rCount As Integer = 1 To inputTable.Columns.Count - 1
            Dim newRow As DataRow = outputTable.NewRow()
 
            ' First column is inputTable's Header row's second column
            newRow(0) = inputTable.Columns(rCount).ColumnName.ToString()
            For cCount As Integer = 0 To inputTable.Rows.Count - 1
                Dim colValue As String = inputTable.Rows(cCount)( _
                  rCount).ToString()
                newRow(cCount + 1) = colValue
            Next
            outputTable.Rows.Add(newRow)
        Next
 
        Return outputTable
    End Function

________
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

    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