Hallo Zusammen
Ich komm nicht mehr weiter ...
Ausgangslage ist folgendes XML:
Es fällt auf, dass nicht immer jedes Element dabei ist. Es fehlt PRODNO im zweiten Datensatz.
Ich sollte die Einträge in Textboxen eintragen. Sofern immer jedes Element dabei ist, funktioniert das auch.
Sobald aber ein Element gänzlich fehlt, kommt gar nix. Wie würdet ihr das angehen? Ich lese die list aus und möchte die Textboxen abfüllen.
Mein VB Konstrukt:
Ich komm nicht mehr weiter ...
Ausgangslage ist folgendes XML:
Es fällt auf, dass nicht immer jedes Element dabei ist. Es fehlt PRODNO im zweiten Datensatz.
Ich sollte die Einträge in Textboxen eintragen. Sofern immer jedes Element dabei ist, funktioniert das auch.
Sobald aber ein Element gänzlich fehlt, kommt gar nix. Wie würdet ihr das angehen? Ich lese die list aus und möchte die Textboxen abfüllen.
Mein VB Konstrukt:
VB.NET-Quellcode
- Public Class Medikamente
- Public Property NameMedic() As [String]
- Get
- Return m_NameMedic
- End Get
- Set(value As [String])
- m_NameMedic = value
- End Set
- End Property
- Private m_NameMedic As [String]
- Public Property EAN() As [String]
- Get
- Return m_EAN
- End Get
- Set(value As [String])
- m_EAN = value
- End Set
- End Property
- Private m_EAN As [String]
- Public Property MedicNr() As [String]
- Get
- Return m_MedicNr
- End Get
- Set(value As [String])
- m_MedicNr = value
- End Set
- End Property
- Private m_MedicNr As [String]
- Public Sub New(NameMedic As [String], EAN As [String], MedicNr As String)
- Me.NameMedic = NameMedic
- Me.EAN = EAN
- Me.MedicNr = MedicNr
- End Sub
- End Class
- Dim list As New ObservableCollection(Of Medikamente)
- Dim medis = From county In document.Root.Elements("PRD")
- From MedicNr In county.Elements("PRODNO")
- From NameMedic In county.Elements("DSCRD")
- From EAN In county.Elements("GTIN")
- For Each m In medis
- list.Add(New Medikamente(NameMedic:=m.NameMedic, EAN:=m.EAN, MedicNr:=m.MedicNr))
- Next