Json Object an mehreren Listen Binden und Einträge ausgeben

  • VB.NET

    Json Object an mehreren Listen Binden und Einträge ausgeben

    Json Ausgabe
    Spoiler anzeigen

    XML-Quellcode

    1. [
    2. {
    3. "id": "1",
    4. "hash": "HASH256",
    5. "kundennummer": "1000KD",
    6. "rechnungen": [
    7. {
    8. "rechnung": [
    9. {
    10. "rechnungsnummer": "7142749RG",
    11. "key": "1111-1111",
    12. "type": "1"
    13. }
    14. ]
    15. },
    16. {
    17. "rechnung": [
    18. {
    19. "rechnungsnummer": "5000RG",
    20. "key": "1341131dsfdfs",
    21. "type": "2"
    22. }
    23. ]
    24. },
    25. {
    26. "rechnung": [
    27. {
    28. "rechnungsnummer": "5001RG",
    29. "key": "5555-5555-5555",
    30. "type": "2"
    31. },
    32. {
    33. "rechnungsnummer": "5001RG",
    34. "key": "6666-6666-6666",
    35. "type": "1"
    36. }
    37. ]
    38. }
    39. ]
    40. }
    41. ]


    VB.NET JsonObj Class und Bindinglist
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Rechnung
    2. <JsonProperty("rechnungsnummer")>
    3. Public Property Rechnungsnummer As String
    4. <JsonProperty("key")>
    5. Public Property Key As String
    6. <JsonProperty("type")>
    7. Public Property Type As String
    8. End Class
    9. Public Class Rechnungen
    10. <JsonProperty("rechnung")>
    11. Public Property Rechnung As IList(Of Rechnung)
    12. End Class
    13. Public Class JsonObj
    14. <JsonProperty("id")>
    15. Public Property Id As String
    16. <JsonProperty("hash")>
    17. Public Property Hash As String
    18. <JsonProperty("kundennummer")>
    19. Public Property Kundennummer As String
    20. <JsonProperty("rechnungen")>
    21. Public Property Rechnungen As IList(Of Rechnungen)
    22. End Class
    23. Public Property Klist As BindingList(Of JsonObj)
    24. Get
    25. Return m_kunden
    26. End Get
    27. Set
    28. m_kunden = Value
    29. End Set
    30. End Property
    31. Private m_kunden As New BindingList(Of JsonObj)

    Ich binde dann zb. die Kundennummer mit folgendem Code an einer Listbox

    VB.NET-Quellcode

    1. Listbox.DisplayMember = "kundennummer"
    2. Listbox.DataSource = Klist


    Nun sollten alle Alle Kundennummern in einer Listbox, das klappt auch soweit, die dazugehörigen Rechnungen sollten in eine zweite Listbox und zum Schluss sollten dann die dazugehörigen Einträge in einem DataGridview.

    Ich verstehe nur nicht genau wie ich diese Verschachtelten Arrays / Listen dann binden soll.


    Hoffe mir kann wer weiterhelfen ?(


    Grüße
    Marvin
    Imperiums - Fortschritt in ein neues Zeitalter (Remake 2021)