Discussion :

[zooffy]

Bonjour

Je suis sûr que le problème est tout couillon, mais je sèche. J'arrive jamais sur genre de chose.

Donc je lis une DataTable avec un :

Code :

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

1
2
3
 
For Each dr As DataRow In dt.Rows
Next

Dans ce truc je dois fabriquer un tableau dn=ont je ne connias que la hateur, la dernière ligne devant être ce qui reste à metre dedans.

Donc je dois faire des ajouts de TableRow en conséquence et metre des TableCell dans ces TableRow. Chaque TableCell contenant des trucs que j'ai déjà programmé.

J'ai eu l'idée de mettre un compteur, mais j'arrive pas à m'en dépétrer. soit il me répète trop de fois la même lgne, sois j'ai des créations en double de TableCell.

Bref, je sèche.
Vous pouvez m'aider ?

[zooffy]

Je viens de penser à un détail : plutôt que la Hauteur, je peux aussi connaitre la Largeur.

Du coup, c'est peut être plus simple ?

[calagan99]

Quid d'une boucle For

Code :

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

For(int i = 0; i < dt.rows.count-1; i++)

tu t'arretes ainsi à l'avant dernière ligne.
Et tu construis ensuite ta dernière ligne avec le dernier index de ton dt.rows

[zooffy]

Ben dans un premier temps j'avais pensé à ça, mais ça donnais pas ce qu'il fallait. Une fois placé dans le For Each, ça bugguer sévère.

Mais là j'ai mis un test tout couillon et ça à l'air de fonctionner. Maintenant, j'ai pas fini de tester parce que je dois créer pleinde page avec des menus à ralonge pour tout tester. L'idée c'est jsutment ça : faire une module de menu qui s'en fout de savoir s'il est placé sur une colone à gauche de la page (Largeur 1) ou en haut, à l'horizontale (largeur X et retour à la ligne dés que le nombre d'entrée du menu est attient)

Voilà mon code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For Each dr As DataRow In dt.Rows
            If dr.Item(2) = 0 Or (dr.Item(2) = 1 And Not Profile.IsAnonymous) Then
                If i = 0 Then
                    r = New TableRow
                End If
                r.Cells.Add(FabricationLien(dr.Item("Page_Lien"), dr.Item("Id_Pages")))
                i += 1
                If i = Largeur Then
                    tblGene.Rows.Add(r)
                    i = 0
                End If
            End If
        Next

Pour l'instant avec 2 entrées, ça le fait bien. Je crée le reste dans la matinée.