Fout: Er is geen rij op de positie 0

Status
Niet open voor verdere reacties.

sembeek

Gebruiker
Lid geworden
12 jan 2013
Berichten
6
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:
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:
Knipsel5.JPG
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan