Chart alte Daten löschen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von us4711.

    Chart alte Daten löschen

    Hallo,

    ich bastle gerade mit Charts herum. Die Charts füttere ich e nac Situation aus verschiedenen XML-Dateien.

    Jetzt ersteinmal der Code

    VB.NET-Quellcode

    1. Imports Wirrklang.Aufgaben
    5. Public Class Auswertung
    8. Private Sub Auswertung_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    9. 'Entscheide ob Tabs oder nicht
    11. If Wirrklangrettung.DS_Aufgabenverwaltung.Spalten.Rows.Count <= 2 Then
    12. GraphenbasisOhneTab()
    15. Else
    16. ' Lege Tabs an
    17. 'Lege die dazugehörigen series an
    19. End If
    20. End Sub
    21. Private Sub GraphenbasisOhneTab()
    23. Dim ZählerSpalten As Integer
    24. Dim ZählerAufgaben As Integer
    25. Dim ZählerSeries As Integer
    28. ZählerSpalten = Wirrklangrettung.DS_Aufgabenverwaltung.Spalten.Rows.Count
    30. Dim ChartArea(ZählerSpalten) As System.Windows.Forms.DataVisualization.Charting.ChartArea
    31. Dim Legend(ZählerSpalten) As System.Windows.Forms.DataVisualization.Charting.Legend
    32. Dim Series(ZählerSpalten) As System.Windows.Forms.DataVisualization.Charting.Series
    33. Dim Chart(ZählerSpalten) As System.Windows.Forms.DataVisualization.Charting.Chart
    34. ZählerAufgaben = Wirrklangrettung.DS_Aufgabenverwaltung.Aufgabe.Rows.Count
    37. ZählerSeries = ZählerAufgaben / ZählerSpalten
    38. For x = 0 To ZählerSpalten - 1
    40. ChartArea(x) = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
    41. Legend(x) = New System.Windows.Forms.DataVisualization.Charting.Legend()
    42. Series(x) = New System.Windows.Forms.DataVisualization.Charting.Series()
    43. Chart(x) = New System.Windows.Forms.DataVisualization.Charting.Chart()
    44. CType(Chart(x), System.ComponentModel.ISupportInitialize).BeginInit()
    46. Me.Controls.Add(Chart(x))
    47. ChartArea(x).Name = "ChartArea(x)"
    48. Chart(x).ChartAreas.Add(ChartArea(x))
    49. Legend(x).Name = "Legend(x)"
    50. Chart(x).Legends.Add(Legend(x))
    51. Chart(x).Location = New System.Drawing.Point(10 + 300 * x, 10)
    52. Chart(x).Name = "Chart(x)"
    53. Series(x).ChartArea = "ChartArea(x)"
    54. Series(x).Legend = "Legend(x)"
    55. Series(x).Name = Wirrklangrettung.DS_Aufgabenverwaltung.Spalten.Rows(x).Item(3)
    56. Series(x).ChartType = DataVisualization.Charting.SeriesChartType.Bar
    57. Chart(x).Series.Add(Series(x))
    58. Chart(x).Size = New System.Drawing.Size(290, ZählerSeries * 30)
    59. Chart(x).TabIndex = 0
    60. Chart(x).Text = "Chart(x)"
    61. Legend(x).Enabled = False
    66. Next
    67. Me.Size = New System.Drawing.Size(10 + 310 * ZählerSpalten, ZählerSeries * 30 + 60)
    68. Me.Text = "Auswertung " & Wirrklangrettung.DS_Aufgabenverwaltung.AufgabenInfos.Rows(0).Item(6)
    69. For y = 0 To ZählerSpalten - 1
    71. For x = ZählerSeries - 1 To 0 Step -1
    72. Dim Wert1 As Single
    74. If Wirrklangrettung.DS_Aufgabenverwaltung.Aufgabe.Rows(x + y * ZählerSeries).Item(14) < 6 Then
    75. Wert1 = (Wirrklangrettung.DS_Aufgabenverwaltung.Aufgabe.Rows(x + y * ZählerSeries).Item(14) - 6) * -2
    76. ' Series(1).Points.Item(x).Color = Color.Red
    77. Else
    78. Wert1 = (Wirrklangrettung.DS_Aufgabenverwaltung.Aufgabe.Rows(x + y * ZählerSeries).Item(14) - 6)
    79. ' Series(1).Points.Item(x).Color = Color.Green
    80. End If
    82. Series(y).Points.AddXY((ZählerSeries - 1) - x, Wert1)
    85. If Wirrklangrettung.DS_Aufgabenverwaltung.Aufgabe.Rows(x).Item(14) < 6 Then
    87. Series(y).Points.Item((ZählerSeries - 1) - x).Color = Color.Red
    88. Else
    90. Series(y).Points.Item((ZählerSeries - 1) - x).Color = Color.Green
    91. End If
    93. Series(y).Points.Item((ZählerSeries - 1) - x).AxisLabel = Wirrklangrettung.DS_Aufgabenverwaltung.Aufgabe.Rows(x).Item(15)
    95. MsgBox(Wirrklangrettung.DS_Aufgabenverwaltung.Aufgabe.Rows(x).Item(15))
    100. Next
    102. End Sub
    103. End Class


    Jetzt das Problem. Rufe ich diese Form zum ersten mal auf, ist alles in Ordnung. Rufe ich diese Form zum zweiten Mal auf und verwende eine andere XML-Datei als Basis, gibt

    VB.NET-Quellcode

    1. MsgBox(Wirrklangrettung.DS_Aufgabenverwaltung.Aufgabe.Rows(x).Item(15))

    die richtigen Werte aus.

    Aber in dem Chartscontrol sind noch die Werte aus der ersten XML-Datei zu sehen. Hie und da mischen sich die Daten der zweiten XML-Datei dazu.

    Wo liegt mein Fehler?

    Kagurame schrieb:

    Refresh oder sowas

    Gibt es, chart.update() oder series.points.clear()

    In anderen Zusammenhängen funktioniert das auch, hier habe ich nichts geschafft. Weil die XML-Datei immer neu beim Aufrufen des Forms geladen wird, habe ich jetzt probiert:

    VB.NET-Quellcode

    1. form.showdialog()
    2. form.dispose()

    Jetzt verhält sich das so, wie es soll.

    ErfinderDesRades schrieb:

    bindest Das Chart da dran - gugge ChartTester

    Danke. Muss ich mir mal anschauen.

Facebook
Telefonspende