Hallo,
Ik heb een fout in mijn code, en ik kom er zelf niet uit. Het gaat om het proces van verschillende gegevens in een xml bestand zetten. Het gaat fout in de listview, zolang er 1 product in de listview staat het goed, maar zodra er meerdere producten in staan geef die een error en zet het programma maar 1 product uit de listview in het xml bestand.
Zou iemand mij kunnen helpen?
Alvast Bedankt!
Als jullie meer gegevens of code nodig hebben, hoor ik het wel!
Hier is mijn code:
Hier is een screenshot van de error:

Ik heb een fout in mijn code, en ik kom er zelf niet uit. Het gaat om het proces van verschillende gegevens in een xml bestand zetten. Het gaat fout in de listview, zolang er 1 product in de listview staat het goed, maar zodra er meerdere producten in staan geef die een error en zet het programma maar 1 product uit de listview in het xml bestand.
Zou iemand mij kunnen helpen?
Alvast Bedankt!
Als jullie meer gegevens of code nodig hebben, hoor ik het wel!

Hier is mijn code:
Code:
Public Sub Factuur()
test()
Dim xmlDoc As New XmlDocument
Dim productNodes As XmlNodeList
Dim productNode As XmlNode
Dim baseDataNodes As XmlNodeList
Dim pFactuurnr = nummer.Text()
xmlDoc.Load("data\invoice.xml")
Dim nodes As XmlNodeList = xmlDoc.DocumentElement.SelectNodes("/Table/Product")
Dim pKlant As String = "", pStad As String = "", pArtikel As String = "", pKOmschrijving As String = "", pOmschrijving As String = "", pPrijs As String = "", pAantal As String = "", pTotaal As String = "", pAdres As String = "", pPostcode As String = "", pPlaats As String = "", pTelefoonnr As String = "", pEmail As String = "", pDebnr As String = "", pEenheid As String = ""
For Each node As XmlNode In nodes
pKlant = node.SelectSingleNode("Klant").InnerText
pAdres = node.SelectSingleNode("Adres").InnerText
pPostcode = node.SelectSingleNode("Postcode").InnerText
pPlaats = node.SelectSingleNode("Plaats").InnerText
pTelefoonnr = node.SelectSingleNode("Telefoonnummer").InnerText
pEmail = node.SelectSingleNode("Email").InnerText
pDebnr = node.SelectSingleNode("Debiteurnummer").InnerText
pStad = node.SelectSingleNode("Stad").InnerText
pArtikel = node.SelectSingleNode("Artikel").InnerText
pKOmschrijving = node.SelectSingleNode("KOmschrijving").InnerText
pOmschrijving = node.SelectSingleNode("Omschrijving").InnerText
pPrijs = node.SelectSingleNode("Prijs").InnerText
pAantal = node.SelectSingleNode("Aantal").InnerText
pTotaal = node.SelectSingleNode("Totaal").InnerText
pEenheid = node.SelectSingleNode("Eenheid").InnerText
Next
Hier is een screenshot van de error:

Laatst bewerkt: