Discussion :

[Bisemper]

Bonjour,

Je bosse sur la création d'un DataGrid avec le code suivant

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
19
20
21
22
23
 
        Dim row As String()
        Dim SubRow As String()
        Dim CumuleLongueur As Double = 0
 
        For i As Integer = 0 To BarresUtilisées.Count - 1
            row = New String() {i + 1, BarresUtilisées.Item(i).Cells(PositionColonneQuantité), BarresUtilisées.Item(i).Cells(PositionColonneDesignation), LongueurBarre}
            GridBarresUtilisées.DataGridViewX1.Rows.Add(row)
            For j As Integer = 0 To BarresUtilisées.Item(i).Rows.Count - 1
                Dim Longueur As String = 0
                SubRow = New String() {i + 1 & "-" & j + 1, BarresUtilisées.Item(i).Rows(j).Cells(PositionColonneQuantité), BarresUtilisées.Item(i).Rows(j).Cells(PositionColonneDesignation), BarresUtilisées.Item(i).Rows(j).Cells(PositionColonneLongueur)}
                GridBarresUtilisées.DataGridViewX1.Rows.Add(SubRow)
                Longueur = BarresUtilisées.Item(i).Rows(j).Cells(PositionColonneLongueur)
                Longueur = Left(Longueur, Len(Longueur) - 2) 'Suppression des "mm"
                Longueur = Replace(Longueur, ",", "")    'Suppression Virgule
                Longueur = Longueur / 100
                Dim LongueurActuelle As Double = Convert.ToDouble(Longueur)
                CumuleLongueur = CumuleLongueur + Longueur
            Next
            GridBarresUtilisées.DataGridViewX1.Rows(i).Cells(4).Value = Convert.ToString(LongueurBarre - CumuleLongueur)
            CumuleLongueur = 0
 
        Next

En gros je regarde la liste "BarresUtilisées" (liste de liste), pour chaque ligne "i" j'ajoute une ligne à mon tableau.

Avant de passer à la ligne suivante je regarde dans la ligne "i" si elle contient d'autres lignes "j", pour chaque ligne "j" j'ajoute une ligne à mon tableau.

Le soucis c'est qu'après tout ça je veux ajouter une valeur Dans la 4ième cellule de ma ligne "i", problème, ça me met une valeur dans les lignes du dessous, je comprend pas pourquoi:

Code :

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

GridBarresUtilisées.DataGridViewX1.Rows(i).Cells(4).Value = Convert.ToString(LongueurBarre - CumuleLongueur)

Voila le résultat que j'ai au jour d'aujourd'hui:

La valeur "Chute" devrait apparaitre juste sur la ligne "1" et pas sur les "1-1". Je dois oublier un petit truc, mais j'ai beau essayer pleins de trucs, je tourne en rond

merci d'avance pour le coup de main :-)

[Bisemper]

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
19
20
21
22
23
24
25
26
27
28
29
30
        'Création d'une ligne par barre débité
        Dim row As String()
        Dim SubRow As String()
        Dim CumuleLongueur As Double = 0
        Dim SubRowAdd As Integer = 0 'Nombre de SubRow Ajouté par barre
        Dim SubRowAddT As Integer = 0 'Nombre de SubRow Ajouté total
 
        For i As Integer = 0 To BarresUtilisées.Count - 1
            row = New String() {i + 1, BarresUtilisées.Item(i).Cells(PositionColonneQuantité), BarresUtilisées.Item(i).Cells(PositionColonneDesignation), LongueurBarre}
            GridBarresUtilisées.DataGridViewX1.Rows.Add(row)
            For j As Integer = 0 To BarresUtilisées.Item(i).Rows.Count - 1
                Dim Longueur As String = 0
                SubRow = New String() {i + 1 & "-" & j + 1, BarresUtilisées.Item(i).Rows(j).Cells(PositionColonneQuantité), BarresUtilisées.Item(i).Rows(j).Cells(PositionColonneDesignation), BarresUtilisées.Item(i).Rows(j).Cells(PositionColonneLongueur)}
                SubRowAdd = SubRowAdd + 1
 
                GridBarresUtilisées.DataGridViewX1.Rows.Add(SubRow)
                Longueur = BarresUtilisées.Item(i).Rows(j).Cells(PositionColonneLongueur)
                Longueur = Left(Longueur, Len(Longueur) - 2) 'Suppression des "mm"
                Longueur = Replace(Longueur, ",", "")    'Suppression Virgule
                Longueur = Longueur / 100
                Dim LongueurActuelle As Double = Convert.ToDouble(Longueur)
                CumuleLongueur = CumuleLongueur + Longueur
            Next
 
            GridBarresUtilisées.DataGridViewX1.Rows(i + SubRowAddT).Cells(4).Value = Convert.ToString(LongueurBarre - CumuleLongueur)
            SubRowAddT = SubRowAddT + SubRowAdd
            CumuleLongueur = 0
            SubRowAdd = 0
 
        Next

Bon j'ai trouvé tout seul Il fallait que je décale mon écriture du nombre de SubRow ajouté, mais bon je sais pas trop pourquoi vu que je me referais au i et que lui il s'en fou que j'ajoute des barres ou pas.