[VB.NET] Utilisation de DatTable.Select()

Salut,

J'ai une DataTable dans laquelle j'essaye d'extraire des résultat via la méthode Select(). Evidemment, je n'y arrive pas :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Dtamp As New DataTable Dim Dr As DataRow() Dtamp = CType(Session("DT_amp"), DataTable) Dr = Dtamp.Select("COD_1 = " & cod1 & " and COD_2 = " & cod2) Dtamp.Clear()   For Each row As DataRow In Dr Dtamp.Rows.Add(row) 'Response.Write(row.Item(0) & "**" & row.Item(1) & "**" & row.Item(2) & "**" & row.Item(3) & "**" & row.Item(4) & "**" & row.Item(5) & "**" & row.Item(6) & "**" & row.Item(7) & "<br>") Next

---

Je fais un Dtamp.Clear() pour réutiliser cette table donc.
Un Dr.Length() me retourne 1, résultat logique dans mon cas de figure.
Je ne comprends pas pourquoi mon response.write me retourne ********** ce qui me dit que mes row.item() sont vides.
Ma question est donc pourquoi mes row.item() sont vides alors que je rentre bien dans ma boucle for?

Ai-je été clair?

Merci par avance.

Bon déjà je sais que le problème ne vient pas de mon insertion mais bel et bien du select() et du DR qui en résulte.
Correction pour l'ajout de mon datarow :

Code:

---

1 2 3 4 5 6 7

For Each row As DataRow In Dr Drtmp = Dtamp.NewRow() For i = 0 To 6 Drtmp(i) = 0 Next Dtamp.Rows.Add(Drtmp) Next

---

L'ajout comme ça fonctionne. Mais ça plante dès que je mets :

Code:

---

Drtmp(i) = row()

---

Message d'erreur :

Citation:

---

Cette ligne a été supprimée d'une table et ne contient pas de données. BeginEdit() permettra la création de nouvelles données dans cette ligne.

---

Dans ce cas là, vb.net c'est plus fort que moi.

Bon et bien j'ai résolu ce problème en passant par une table intermédiaire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dtmp = Dtamp.Copy() Dr = Dtmp.Select("COD_1 = " & cod1 & " and COD_2 = " & cod2) Dtamp.Clear()   For Each row As DataRow In Dr Drtmp = Dtamp.NewRow() For i = 0 To 6 Drtmp(i) = row(i) Next Dtamp.Rows.Add(Drtmp) Next

---