If Statement über XML Datei für CheckBox

  • VB.NET

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von SpaceyX.

    If Statement über XML Datei für CheckBox

    Hallo,

    ich habe eine Frage, wenn ich Daten aus einer XML Datei lade, dann über die Auswahl von einer ComboBox die Elemente einlade bekomme ich in 1 bis 6 Textenboxen 1 und 0 (unterschiedlich).
    Null will ich diese 1 und 0 nicht extra in einer Textbox anzeigen lassen sondern direkt über ein If Statement überprüfen ob es 1 oder 0 ist und damit bestimmen, ob die dazu gehörige Checkbox (1 bis 6)
    enabled (1) oder nicht (0) ist. Ist sowas möglich?
    Bis jetzt habe ich das so gelöst...wie schaffe ich es ohne die TextBox Abfrage direkt über die XML Daten.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. If mtb_z1.Text = "0" Then
    2. mckb_z1a.Enabled = False
    3. mckb_z1b.Enabled = False
    4. Else
    5. mckb_z1a.Enabled = True
    6. mckb_z1b.Enabled = True
    7. End If
    9. If mtb_z2.Text = "0" Then
    10. mckb_z2a.Enabled = False
    11. mckb_z2b.Enabled = False
    12. Else
    13. mckb_z2a.Enabled = True
    14. mckb_z2b.Enabled = True
    15. End If
    17. If mtb_z3.Text = "0" Then
    18. mckb_z3a.Enabled = False
    19. mckb_z3b.Enabled = False
    20. Else
    21. mckb_z3a.Enabled = True
    22. mckb_z3b.Enabled = True
    23. End If
    25. If mtb_z4.Text = "0" Then
    26. mckb_z4a.Enabled = False
    27. mckb_z4b.Enabled = False
    28. Else
    29. mckb_z4a.Enabled = True
    30. mckb_z4b.Enabled = True
    31. End If
    33. If mtb_z5.Text = "0" Then
    34. mckb_z5a.Enabled = False
    35. mckb_z5b.Enabled = False
    36. Else
    37. mckb_z5a.Enabled = True
    38. mckb_z5b.Enabled = True
    39. End If
    41. If mtb_z8.Text = "0" Then
    42. mckb_z8a.Enabled = False
    43. mckb_z8b.Enabled = False
    44. Else
    45. mckb_z8a.Enabled = True
    46. mckb_z8b.Enabled = True
    47. End If


    Also eine möglichkeit zum verkürzen wäre schon mal
    ABC.Enabled = (mtb.text = "0") <- Die Klammer ergibt True/False und kann somit das Enabled schalten.
    Da du aber schon 0 und 1 (true/false) hast wäre es sicher besser direkt damit zu arbeiten.

    Leider habe ich nicht ganz verstanden was dein Programm macht und wie die Quelle aussieht.
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    @Schamash
    Die Quelle ist eine XML Datei und über eine ComboBox wähle ich ein Item aus. Über das Binding werden die Daten in den TextBoxen übertragen. Soweit so gut. Nun habe ich in 6 Textboxen 1 und 0 stehen, weil ich damit die Checkboxen steuern möchte.

    Diese Textboxen wollte ich mir sparen, in dem sofort erkannt wird ob 1 oder 0, wenn ich ein Item in der ComboBox auswähle und die Checkbox darauf reagiert. Also sollte dann der Code sich auf das Ergebnis im Binding beziehen, denke ich mal? Oder? :)
    Ist das etwas verständlicher?

    @Sam85
    die xml lädst du doch bestimmt in eine Datatable.
    Text |
    Text1 | 0
    Text2 | 1
    Text3 | 1
    Text4 | 0

    Dann könntest du bei der Auswahl einfach per SELECT die Auswahl deiner ComboBox ermitteln und die 0 und 1 lassen sich auf Boolean convertieren.

    edit: (hatte den Part mit Binding übersehen)
    Wenn du mit Binding arbeites empfiehlt es sich direkt das zu nehmen.
    Dann sparst du dir die Abfrage.
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    @SpaceyX So ist der Aufbau, sind auch nicht sehr viele Daten. Das läuft soweit auch gut, unten befinden sich die 1 und 0.

    XML-Quellcode

    1. <?xml version="1.0" standalone="yes"?>
    2. <EinlagenDS xmlns="xxx">
    3. <EinlagenDT>
    4. <ID>0</ID>
    5. <Bezeichnung>Test</Bezeichnung>
    6. <Gruppe>Test</Gruppe>
    7. <Artikel>4</Artikel>
    8. <Privatpreis>99.99</Privatpreis>
    9. <Kassenpreis>99.99</Kassenpreis>
    10. <Aufzahlung>99.99</Aufzahlung>
    11. <z1>1</z1>
    12. <z2>1</z2>
    13. <z3>0</z3>
    14. <z4>0</z4>
    15. <z5>0</z5>
    16. <z8>1</z8>


    @Schamash Ja genau habe es auch separt in einen DataGridView eingefügt. Das mit dem Select hieße dann im Code wie? (Bin leider noch zu neu und habe noch keine SQL Befehlserfahrung...SELECT z1 FROM ComboBox) :)?

    Das DataGridView dient ja nur der Anzeige nicht der Datenhaltung.


    VB.NET-Quellcode

    1. Dim DT as new Datatable
    2. DT.ReadXML(Pfad)
    3. Dim DR as Datarow() = DT.Select("ID = 0")
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    @Sam85 Vielleicht lässt sich noch das Schreiben der XML optimieren, Dein Snippet ist leider nicht DataTable- oder SerializableClass-kompatibel.
    Mit welchem Code schreibst Du Deine XML?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany

    Das ist der Code für den DataGridView.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data.DataSet
    3. Public Class frmEinlagenTable
    5. Private Datei As String = "\\rs-win1\ablage\ISO\Preislisten intern\Schuheinlagen\XML\Einlagen.xml"
    7. Private Sub frmEinlagenTable_Load(sender As Object, e As EventArgs) Handles Me.Load
    8. Me.EinlagenDS.ReadXml(Datei)
    9. End Sub
    11. Private Sub mbt_close_Click(sender As Object, e As EventArgs) Handles mbt_close.Click
    12. Me.Close()
    13. End Sub
    15. Private Sub mbt_save_Click(sender As Object, e As EventArgs) Handles mbt_save.Click
    16. Me.EinlagenDTBindingSource.EndEdit()
    17. Me.EinlagenDS.WriteXml(Datei)
    18. MsgBox("Datei gespeichert.")
    19. End Sub
    21. Private Sub mbt_add_Click(sender As Object, e As EventArgs) Handles mbt_add.Click
    22. Me.EinlagenDTBindingSource.AddNew()
    23. End Sub
    25. Private Sub mtb_up_Click(sender As Object, e As EventArgs) Handles mtb_up.Click
    26. Me.EinlagenDTBindingSource.MovePrevious()
    27. End Sub
    29. Private Sub mtb_down_Click(sender As Object, e As EventArgs) Handles mtb_down.Click
    30. Me.EinlagenDTBindingSource.MoveNext()
    31. End Sub
    33. Private Sub mtb_delete_Click(sender As Object, e As EventArgs) Handles mtb_delete.Click
    34. Me.EinlagenDTBindingSource.RemoveCurrent()
    35. End Sub
    37. End Class



    Und das der Code für die Form in der anhand der 6 Felder die 6 Checkboxen angesteuert werden sollen (nur halt ohne den gebrauch der 6 Felder, sondern irgendwie direkt über das Binding.)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data.DataSet
    3. Public Class frmEinlagen
    5. Private Datei As String = "\\rs-win1\ablage\ISO\Preislisten intern\Schuheinlagen\XML\Einlagen.xml"
    7. Private Sub frmEinlagen_Load(sender As Object, e As EventArgs) Handles Me.Load
    9. 'Lesen XML Datei
    10. EinlagenDS.ReadXml(Datei)
    12. 'Anzeigen MetroComboBox als leer
    13. mcb_bezeichnung.SelectedItem = Nothing
    15. 'Anzeigen MetroTextBoxen als leer
    16. For Each mtb As MetroFramework.Controls.MetroTextBox In mpc_einlagen.Controls.OfType(Of MetroFramework.Controls.MetroTextBox)()
    17. mtb.Clear()
    18. Next
    20. End Sub
    22. Private Sub mcb_bezeichnung_SelectedIndexChanged(sender As Object, e As EventArgs) Handles mcb_bezeichnung.SelectedIndexChanged
    24. If mtb_z1.Text = "0" Then
    25. mckb_z1a.Enabled = False
    26. mckb_z1b.Enabled = False
    27. Else
    28. mckb_z1a.Enabled = True
    29. mckb_z1b.Enabled = True
    30. End If
    32. If mtb_z2.Text = "0" Then
    33. mckb_z2a.Enabled = False
    34. mckb_z2b.Enabled = False
    35. Else
    36. mckb_z2a.Enabled = True
    37. mckb_z2b.Enabled = True
    38. End If
    40. If mtb_z3.Text = "0" Then
    41. mckb_z3a.Enabled = False
    42. mckb_z3b.Enabled = False
    43. Else
    44. mckb_z3a.Enabled = True
    45. mckb_z3b.Enabled = True
    46. End If
    48. If mtb_z4.Text = "0" Then
    49. mckb_z4a.Enabled = False
    50. mckb_z4b.Enabled = False
    51. Else
    52. mckb_z4a.Enabled = True
    53. mckb_z4b.Enabled = True
    54. End If
    56. If mtb_z5.Text = "0" Then
    57. mckb_z5a.Enabled = False
    58. mckb_z5b.Enabled = False
    59. Else
    60. mckb_z5a.Enabled = True
    61. mckb_z5b.Enabled = True
    62. End If
    64. If mtb_z8.Text = "0" Then
    65. mckb_z8a.Enabled = False
    66. mckb_z8b.Enabled = False
    67. Else
    68. mckb_z8a.Enabled = True
    69. mckb_z8b.Enabled = True
    70. End If
    72. End Sub
    74. Private Sub mtb_reset_Click(sender As Object, e As EventArgs) Handles mtb_reset.Click
    76. 'Reset MetroCheckBox in mpc_kalkulation
    77. With mckb_befreit
    78. If .Checked = True Then .Checked = False
    79. End With
    81. 'Rest MetroTextBox in mpc_kalkulation
    82. For Each mtb As MetroFramework.Controls.MetroTextBox In mpc_kalkulation.Controls.OfType(Of MetroFramework.Controls.MetroTextBox)()
    83. mtb.Clear()
    84. Next
    86. 'Reset MetroCheckbox in mpc_zusätze
    87. Dim pan() = {mps_a, mps_b}
    89. For Each panel As MetroSuite.MetroPanelSelection In pan
    90. For Each mckb As MetroSuite.MetroCheckBox In panel.Controls.OfType(Of MetroSuite.MetroCheckBox)()
    91. With mckb
    92. .Enabled = True
    93. .Checked = False
    94. End With
    95. Next
    96. Next
    98. 'Reset MetroTextBox in mpc_einlagen
    99. For Each mtb As MetroFramework.Controls.MetroTextBox In mpc_einlagen.Controls.OfType(Of MetroFramework.Controls.MetroTextBox)()
    100. mtb.Clear()
    101. Next
    103. 'Reset MetroComboBox in mpc_einlagen
    104. mcb_bezeichnung.SelectedItem = Nothing
    106. End Sub
    108. End Class



    @SpaceyX Die Datei habe ich selber erzeugt, also es gab in dem Sinne nur die Vorgaben, die ich dafür als relevant gesehen habe.

    @Schamash Der Bezug auf die ID=0, kann ich den dann in die IF Abfrage einbauen?


    Nun habe ich festgestellt, dass das erste Element aus der XML nicht korrekt angezeigt wird (also es fehlen Daten die eingetragen sind). Aber lediglich bei dem ersten Eintrag und auch nicht alle. Habe ich beim Code vielleicht etwas unsauber veranstaltet, dass es zu diesem Fehler kommen kann? (PS: Nun habe ich mal weiter getestet und es wird auch erst angezeigt (nicht vollständiger Datensatz), wenn ich das zweite Element vorher einmal ausgewählt habe.)

    Habe auch mal ein paar Bilder eingefügt, damit so ein bisschen klar wird wie es aussieht und was mich stutzen lässt.

    Freue mich über Feedback.
    Bilder

    • DataTable.PNG

      6,36 kB, 202×310, 88 mal angesehen

    • DGV mit Daten.png

      46,98 kB, 951×498, 77 mal angesehen

    • Hauptform mit ersten Eintrag.png

      31,14 kB, 1.065×406, 100 mal angesehen

    • Hauptform mit zweiten Eintrag.png

      34,67 kB, 1.076×422, 101 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Sam85“ ()

    hi,

    ich hab Dir ein kleines Video zur "Erklärung" erstellt:



    Du bindest Dein DataSet an eine BindingSource und die entsprechenden Properites Deiner Controls an die entsprechende Spalte der im DataSet enthaltenen DataTable via BindingSource. Geht alles im Designer.

    Wie Du im Video sehen kannst, wird die BindingSource automatisch von VS erzeugt, sobald Du die ComboBox an die DataTable bindest. So hast Du eine 2-Wege-Bindung. Sprich nicht mit den Controls, sondern immer mit der DataTable oder Binding-Source.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Ich hab da nochmal eine allgemeine Frage, wenn ich den ersten Eintrag in einer ComboBox leer lassen möchte (wenn ich aus einen DataTable lese), wie gehe ich da am besten vor?
    Ist es besser die erste Zeile bzw. die -1 leer zu lassen, oder im Code zu implementieren, dass die ComboBox mit "nothing" beginnen soll (bei letzten habe ich bisher immer das Problem gehabt, dass der erste Eintrag nicht mehr richtig übernommen wird).

    Freue mich über ein Feedback.

    @Sam85 Sieh Dir mal die Property .DropDownStyle im Designer an, und dann in Kombination mit SelectedIndex = -1.
    -1 macht, dass nix angezeigt wird,
    .DropDownStyle macht, dass editiert werden kann oder nicht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany Vielen Dank. Noch eine Frage, nun habe ich zwar die ComobBox leer. Zusätzlich werden ja auch in TextBoxen Werte übertragen durch das Binding, zusammen mit dem ersten Item aus der ComboBox, wie bekomme ich diese ebenfalls leer?

    Vorher hatte ich diesen Code im Form Load drin, der hat aber nach etwas probieren vermutlich mein Problem überhaupt ausgelöst (Daten aus dem ersten Eintrag waren nicht vollständig).

    VB.NET-Quellcode

    1. 'Anzeigen MetroTextBoxen als leer
    2. For Each mtb As MetroFramework.Controls.MetroTextBox In mpc_einlagen.Controls.OfType(Of MetroFramework.Controls.MetroTextBox)()
    3. mtb.Clear()
    4. Next


    Eher sowas?

    VB.NET-Quellcode

    1. mtb_au.DataBindings.Clear()

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Sam85“ ()

    Sam85 schrieb:

    wie bekomme ich diese ebenfalls leer?
    Du musst die DataSource des Empfängers auf Nothing setzen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany Wo finde ich die DataSource? Bzw. wie setze ich sie auf Nothing. In der ComboBox geht das ja mit SelectedItem = Nothing. Ist das ähnlich mit der TextBox?

    Mhh, scheint so, als hättest Du das Konzept der Daten-Bindung nicht so richtig umgesetzt, bzw. noch nicht verinnerlicht. Einfachste Lösung ist, Du fügst in Deine DataTable einen "Dummy-Eintrag" hinzu, welcher einfach leer ist. Bei einer eventuellen Auswertung der Daten in Deiner Table musst Du diesen Eintrag einfach ignorieren.

    Evtl. solltest Du darüber auch nachdenken, warum Du überhaupt einen leeren Eintrag willst und ob das überhaupt nötig ist.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    @SpaceyX Der soll am Anfang einfach verhindern, dass jemand irritiert wird durch einen bereits vorhanden Eintrag. Notwendig ist er im eigentlichen Sinne vermutlich nicht.
    Sonst könnte ich doch bestimmt beim XML einlesen auch statt dem Load Event einfach das ComboBox SelectedItem Event ansprechen oder?
    Und ja du hast recht :) so 100% verinnerlicht habe ich das ganze noch nicht, ich arbeite noch daran.

    es ist meiner meinung nach vollkommen ok, wenn der erste eintrag bereits ausgewählt ist und das sollte wirklich niemanden irritieren. ich denke, Du solltest das so lassen und weiter machen.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

Facebook
Telefonspende