Hallo
Ich habe ein Problem mit dem Chart-Contol bzw Combobox
Für mich nicht zu erklären.
also
Ich möchte in einem Chart-Diagramm Einnahmen und Ausgaben gegenüberstellen. Das klappt auch soweit.
Der Code ist folgender
[vbnet Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Ein_AusgabenTableAdapter.Fill(Me.HaushaltskasseDataSet.Ein_Ausgaben)
Me.EintraegeTableAdapter.Fill(Me.HaushaltskasseDataSet.Eintraege)
Me.EinnahmenTableAdapter.Fill(Me.HaushaltskasseDataSet.Einnahmen)
With Chart
Chart.Series(0).Points.AddXY("Januar", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Januar" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Februar", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Februar" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("März", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "März" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("April", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "April" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Mai", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Mai" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Juni", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Juni" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Juli", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Juli" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("August", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "August" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("September", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "September" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Oktober", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Oktober" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("November", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "November" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Dezember", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Dezember" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(1).Points.AddXY("Januar", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Januar" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Februar", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Februar" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("März", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "März" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("April", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "April" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Mai", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Mai" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Juni", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Juni" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Juli", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Juli" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("August", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "August" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("September", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "September" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Oktober", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Oktober" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("November", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "November" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Dezember", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Dezember" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
End With
End Sub] [/vbnet]
Wenn dieser Code im Form_Load ist, wird das Diagramm richtig dargestellt. Auf der Form ist außerdem eine
Combobox mit Items das aus Jahreszahlen besteht. also 1019, 2020, 2021 usw
Lege ich diesen Code in
dann bekomme Ich eine Fehlermeldung.
Aber dort gehört der Code hin. Bei auswahl in der Combobox wird dann das Diagramm neu gezeichnet
Hoffe da kann jemand helfen
Gruß
Sabine
Ich habe ein Problem mit dem Chart-Contol bzw Combobox
Für mich nicht zu erklären.
also
Ich möchte in einem Chart-Diagramm Einnahmen und Ausgaben gegenüberstellen. Das klappt auch soweit.
Der Code ist folgender
[vbnet Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Ein_AusgabenTableAdapter.Fill(Me.HaushaltskasseDataSet.Ein_Ausgaben)
Me.EintraegeTableAdapter.Fill(Me.HaushaltskasseDataSet.Eintraege)
Me.EinnahmenTableAdapter.Fill(Me.HaushaltskasseDataSet.Einnahmen)
With Chart
Chart.Series(0).Points.AddXY("Januar", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Januar" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Februar", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Februar" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("März", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "März" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("April", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "April" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Mai", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Mai" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Juni", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Juni" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Juli", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Juli" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("August", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "August" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("September", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "September" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Oktober", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Oktober" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("November", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "November" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(0).Points.AddXY("Dezember", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Dezember" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Einnahmen).Sum())
Chart.Series(1).Points.AddXY("Januar", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Januar" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Februar", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Februar" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("März", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "März" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("April", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "April" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Mai", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Mai" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Juni", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Juni" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Juli", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Juli" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("August", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "August" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("September", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "September" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Oktober", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Oktober" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("November", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "November" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
Chart.Series(1).Points.AddXY("Dezember", (From r In HaushaltskasseDataSet.Eintraege Where r.Monat = "Dezember" And r.Jahr = cbx_Jahr.Text Select r.Betrag_Ausgaben).Sum())
End With
End Sub] [/vbnet]
Wenn dieser Code im Form_Load ist, wird das Diagramm richtig dargestellt. Auf der Form ist außerdem eine
Combobox mit Items das aus Jahreszahlen besteht. also 1019, 2020, 2021 usw
Lege ich diesen Code in
dann bekomme Ich eine Fehlermeldung.
Aber dort gehört der Code hin. Bei auswahl in der Combobox wird dann das Diagramm neu gezeichnet
Hoffe da kann jemand helfen
Gruß
Sabine