bonjour a tous, voila je recupére une liste de ma class métier par rapport a ma requete.

Tous se passe pour le mieux sauf que j'ai recupere la dernier ligne de ma liste dans mon dataset.
Ma liste recupere bien tous le résultat de ma requete

Je pesne que c'est dans le for each qu'il y a un souci.

Voici le code


Dim facResult As New ResultAnalyseFactory

Dim rs As List(Of ResultAnalyse) = facResult.Getltresult(ref)

If Not rs Is Nothing Then

Dim tab As New DataSet

Dim DT As New DataTable("Bulletin")

DT.Columns.Add(New DataColumn("Intitul‚"))

DT.Columns.Add(New DataColumn("Signe"))

DT.Columns.Add(New DataColumn("Valeur"))

DT.Columns.Add(New DataColumn("Observation"))

tab.Tables.Add(DT)

Dim NR As DataRow = tab.Tables("Bulletin").NewRow()

For Each v In rs

Dim facIntitul As New AnalyseFactory

Dim intitule As String = facIntitul.Getintitule(v.Idanalyse)

NR.Item("Intitul‚") = intitule

NR.Item("Signe") = v.ValeurSignet

NR.Item("Valeur") = v.Valeur

NR.Item("Observation") = v.ValeurObs

tab.Tables("Bulletin").Rows.Add(NR)

Next

GridView2.DataSource = tab

GridView2.DataBind()

Else

End If

Ma question est comment puis je faire pour mettre toute ma liste dans mon dataset.
Merci