Trouver la dernière ligne d'une DataTable

Bonjour tout le monde.

Je me pose une question peut-être un peu bizarre, mais je ne trouve pas de réponse (ou alors, je passe à côté du truc !)

J'ai fabriqué une datable avec des données de ma base de donnée et je la lis avec un For Each.

Lorsque j'arrive au dernier enregistrement, je voudrais faire un traitement particulier et donc mettre un test conditionnel (If). L'ennui c'est que je ne trouve pas quoi tester.

Alors bien sur, je sais faire un compteur et prende en amont la longueur de la DataTable, mais je me demandais s'il n'y avait pas un statut dans la DataRow qui permettait de savoir que c'est la dernière facilement.

Pour plus de clarté voici un peu de code :

Code:

---

1 2 3 4 5 6 7 8

Dim dtMenuDetail As DataTable = Unerequete de la base de donnée For Each dr As DataRow In dtMenuDetail.Rows 'un traitment sur les données If "c'est la dernière" Then 'un traitemtn particulier End If Next

---

Pouvez vous m'aider ?

Pour moi, for each doit etre utilisé pour des traitements identiques sur tous les objets. Si tu fais un traitement différent sur l'un d'eux, c'est que tu ne devrais pas utiliser de for each. Remarque, on voit souvent des commandes utilisées de maniere detournée alors qu'il existe une fonction adaptée (par exemple utiliser un for/break plutot qu'un while).

Mais bon, peut etre qu'il y a des arguments dans l'autre sens (mais comme ca, je vois pas)

Ok, je vois ce que tu veux dire.
Alors pour être plus précis (mon traitement est assez simple en fait) dans mon For Each, je prends deux champs texte dans la base de donnée, je les colle dans un label et j'ajoute le label.
A la suite de chaque Label je place un <hr> (pour faire une "séparation"). Mon idée est juste de détecter le dernier enregistrement et ne pas ajouter le <hr>.

Du coup, là, je vois pas bien comment utiliser autre chose que le For Each.

Bah comme tu l'as mis dans ton premier message, un simple for avec un index

Soit le foreach avec le compteur comme tu as proposé.
Soit apres ton foreach, tu traites á part le cas de la derniere ligne.

ok, merci les gars.

Donc, on peut légitimement déduire que dans la lecture des ligneq de la DataTable on ne peut pas déterminer un statut de position sur les lignes.

Elles ont pas un index, au moins ?

Non, pas d'index...

Tu peux tout simplement faire ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim dtMenuDetail As DataTable = Unerequete de la base de donnée Dim lastRow As DataRow = Nothing For Each dr As DataRow In dtMenuDetail.Rows 'un traitement sur les données ... lastRow = dr Next   If Not lastRow Is Nothing Then 'un traitement particulier End If

---

Merci Tomlev, l'idée est bonne.

Mais je suis ennuyé pour la mettre en oeuvre parce que mon traitement particulier est de ne PAS ajouté un truc !!!
Du coup, avec ton idée (encore une fois, trés bonne) ben faudrait que j'enlève le contrôle qui vient d'être ajouté et je ne sais pas trop comment faire.

Voici la solution que j'ai fini par trouvé, si tu vois une amélioration possible, n'hésites pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim dtMenuDetail As DataTable = New DManager("DataDev").RetournerTable("SELECT * FROM GITE_MenuGiteDetail WHERE MenuGiteId = '" & idMenu & "' ORDER BY OrdreMenuGite") For Each dr As DataRow In dtMenuDetail.Rows Dim r As New TableRow Dim c As New TableCell Dim l As New Label l.Text = dr.Item("TexteMenu") l.CssClass = "GITE_MenuDetail" c.CssClass = "GITE_celMenuDetail" With c.Controls .Add(l) If dtMenuDetail.Rows.IndexOf(dr) <> dtMenuDetail.Rows.Count - 1 Then .Add(New HtmlGenericControl("hr class='GITE_MenuHR'")) End If lastrow = dr End With r.Cells.Add(c) t.Rows.Add(r) Next

---

En gros, je liste des champs texte et je les ajoute les uns au dessus des autres. Entre chaque je colle un HR pour faire une petite séparation et pour le dernier, je ne le colle pas. Du coup avec ton idée, il faudrait que je récupère la dernière cellule et que je retire le HR que j'ai mis dedans. et ça, je vois pas bien comment faire simplement.

Ah ok... dans ce cas ce serait nettement plus simple avec une boucle For, vu qu'il suffirait de vérifier l'index

Sinon, il y a une méthode d'extension SkipLast dans la librairie Dvp.NET, qui renvoie tous les éléments d'une séquence sauf le dernier :

Code:

---

1 2	For Each dr As DataRow In dtMenuDetail.AsEnumerable().SkipLast() ...

---

(la méthode AsEnumerable est définie dans l'assembly System.Data.DataSetExtensions)

Merci pour le tuyaux, je vais étudier cette librairie.

Mouais faire

Code:

---

dtMenuDetail.Rows.IndexOf(dr)

---

a chaque iteration, c'est sortir les armes lourdes pour rien.

Vu ce que tu fais le plus simple est de ne pas faire un for each mais plutot un simple for avec un index que tu peux comparer.

C'est juste que je prefere ne pas faire compliqué quand je peux faire simple