Discussion :

[franculo_caoulene]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[franculo_caoulene]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Drtmp(i) = row()

Message d'erreur :

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.

[franculo_caoulene]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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