Daten aus DataGridView speichern

[Rene42]

Hi Leute,

für eine Datenanwendung möchte ich die Daten aus dem DataGridView in einer TextDatei speichern. Dazu verwende ich folgenden Code:

 Sub Save(ByVal File As String)
        Dim r, c As Integer
        Dim ZeilenArray(Zeilen - 1), SpaltenArray(Spalten - 1) As String
        Do
            c = 0
            Do
                SpaltenArray(c) = DatenTabelle.Rows(r).Cells(c).Value
                c += 1
            Loop Until c = Spalten
            ZeilenArray(r) = Join(SpaltenArray, "$Sp$")  
             r = r + 1
        Loop Until r = Zeilen
        Dim SaveString As String = Join(ZeilenArray, "$Ze$")
        Dim Path As String = My.Computer.FileSystem.GetParentPath(File)
        If My.Computer.FileSystem.DirectoryExists(File) = False Then My.Computer.FileSystem.CreateDirectory(Path)
        My.Computer.FileSystem.WriteAllText(File, SaveString, False)
    End Sub

Nun ergibt sich aber folgendes Problem. Es wird immer nur die erste Zeile meines DataGridViews gespeichert. Kann sich das jemand erklären, suche nun schon seit zwei Tagen den Fehler, konnte aber auch mit genauem Debuggen nichts finden.

PS: DatenTabelle ist natürlich ein DataGridView
Gibts ne Möglichkeit, dass das Highlighting für BASIC im Browser funktioniert?

 

[mage]

Die Wiederholungsbedinungen deiner äusseren Schleifen sind falsch.
Er wiederholt nur wenn der Ausdruck r=Zeilen wahr wird, das ist er nur wenn er fertig werden sollte.
Formulier mal die Bedinung auf r<=Zeilen.

http://openbook.galileocomputing.de/vb_net/msvb020011.htm