Discussion :

[zooffy]

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 :

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

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 ?

[hwoarang]

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)

[zooffy]

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.

[hwoarang]

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

[tortuegenie]

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

[zooffy]

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 ?

[tomlev]

Non, pas d'index...

Tu peux tout simplement faire ça :

Code :

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

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

[zooffy]

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 :

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

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.

[tomlev]

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 :

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

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

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

[zooffy]

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

[hwoarang]

Mouais faire

Code :

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

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