Probleme d'ajout de ligne en Vb.NET

Fermé
piou59 Messages postés 1 Date d'inscription mardi 21 avril 2009 Statut Membre Dernière intervention 21 avril 2009 - 21 avril 2009 à 15:41
Bonjour,

J'ai un soucis avec un bout de codes.
Ce code fonctionne une seule fois ensuite il bloque. En fait c'est la ligne ds.tables('table_import').rows.add(dr) qui bloque lors du deuxième passage de la boucle. Donc sur ma datagrid j'ai la 1ière ligne et c'est tout.
Faut-il faire un update ? Si oui comment faire ?

Merci d'avance

voici le code:
Private Sub btnHandler_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim btn As New Button
Dim tmp As String, fichier As String
Dim myDataTable As DataTable = New DataTable("table_import")
Dim dc As DataColumn
ds.Tables.Add(myDataTable)
dc = New DataColumn
dc.ColumnName = "ID"
dc.ReadOnly = True
dc.Unique = True
ds.Tables("table_import").Columns.Add(dc)
For i As Integer = 1 To 2
dc = New DataColumn
dc.ColumnName = "Colonne" & i
dc.ReadOnly = True
dc.Unique = True
ds.Tables("table_import").Columns.Add(dc)
Next

OpenFileDialog1.ShowDialog()
OpenFileDialog1.OpenFile()
fichier = OpenFileDialog1.FileName

tmp = ""
Dim j As Integer
j = 0

Try
Dim monStreamReader As New StreamReader(fichier) 'Stream pour la lecture
Dim ligne As String ' Variable contenant le texte de la ligne

For k As Integer = 1 To 500
Dim dr As DataRow = ds.Tables("table_import").NewRow()
dr("ID") = "Ligne" & j.ToString()
ligne = monStreamReader.ReadLine

For i As Integer = 1 To 2
tmp = Mid$(ligne, 1, ds.Tables("table1").Rows(i - 1).Item("taille"))
ligne = Mid$(ligne, ds.Tables("table1").Rows(i - 1).Item("taille") + 1, Len(ligne))
dr("Colonne" & i) = tmp
Next i
ds.Tables("table_import").Rows.Add(dr)
dr.AcceptChanges()

dr = Nothing
j = j + 1

Next k

monStreamReader.Close()
Catch
MsgBox(j)
End Try

DataGridView1.DataSource = ds.Tables("table_import")
DataGridView1.Visible = True

End Sub