Visual Basic - String Split -> Array -> Datatable

[Ravenstorm]

Hallo Leute,

ich benötige Hilfe mein Array in eine Datatable zu schreiben

Mein Code

PHP Code:

 For Each oFile In oFiles


            aryTextFile = oFile.Name.Split("_")
            'oFile.ToString()


            For i = 0 To aryTextFile.Length - 1
                dr = datatable.NewRow
                For j = 0 To datatable.Columns.Count - 1
                    dr(j) = aryTextFile(i)
                Next j
            datatable.Rows.Add(dr)
            Next i



            DataGridView1.DataSource = datatable
            DataGridView1.Refresh()

        Next 


Also ich splitte erst einmal einen String der dieses Format hat:

04.06.12_Armin Seidling_Status_Betreff_Inhalt

Das Problem ist, er zeigt mir die Tabelle dann im Endeffekt nicht so an:

04.06.12

Armin Seidling

Status

Betreff

Inhalt

sonder so:

04.06.12	04.06.12
Armin Seidling	Armin Seidling
Status	Status
Betreff	Betreff
Inhalt	Inhalt

Ich bitte um Hilfe.

[Kunde666]

Du hast ne for-schleife zuviel...
versuchs mal damit

 For Each oFile In oFiles

            aryTextFile = oFile.Name.Split("_")
            oFile.ToString()
	    dr = datatable.NewRow
            
	For i = 0 To aryTextFile.Length - 1                
                    dr(i) = aryTextFile(i)
        Next i

    	    datatable.Rows.Add(dr)
            DataGridView1.DataSource = datatable
            DataGridView1.Refresh()

        Next

[Ravenstorm]

Originally Posted by Kunde666

Du hast ne for-schleife zuviel...
versuchs mal damit

 For Each oFile In oFiles

            aryTextFile = oFile.Name.Split("_")
            oFile.ToString()
	    dr = datatable.NewRow
            
	For i = 0 To aryTextFile.Length - 1                
                    dr(i) = aryTextFile(i)
        Next i

    	    datatable.Rows.Add(dr)
            DataGridView1.DataSource = datatable
            DataGridView1.Refresh()

        Next

Danke, damit gehts auch (Habs dann im Endeffekt genau so wie du geschrieben gehabt.), habe den Fehler dann ja auch schon gefunden.

Für alle die dann noch eine andere Lösung sehen wollen.

            For i = 1 To oFile.Name.Length - 1

                currentLine = goo.Replace(".txt", "").Split("_")
            Next

            datatable.Rows.Add(currentLine)
            DataGridView1.DataSource = datatable
            DataGridView1.Refresh()