Discussion :

[Xteyse]

Bonjour à tous,
je suis actuellement en stage et je bloque sur un bout de code que je dois faire pour un projet que l'entreprise m'a demandé. J'aimerais donc un peu de votre aide.
Alors voila j'ai 2 datagridview un pour afficher des produit avec leur prix, référence, ect(datagrid_prod) et l'autre pour commander ces meme produits(datagrid_command).
la 1ere colonne du data_gridcommand est une combobox qui me permet de séléctionner un produit. J'aimerais qu'en fonction du produit que je choisi dans la combobox, le prix de celui ci (qui est contenu dans datagrid_prod) s'affiche dans une colonne de datagrid_command.
Mais je n'y arrive pas voici mon code :

Code :

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

1
2
3
4
5
6
7
8
  For i = 0 To dgt_command.RowCount - 2
            For j = 0 To Form4.dgt_prod.RowCount - 2
'Verifie si le produit est égal a un produit de l'autre datagrid si oui il prend le prix et le met dans le datagrid_command dans la 3eme colonne.
                If dgv_command.Item(0, i).Value = Form4.dgv_prod.Item(1,j).Value Then
                    dgv_command.Item(2, i).Value = Form4.dgv_prod.Item(3, j).Value
                End If
            Next
        Next

Mais sa ne marche pas rien ne s'affiche dans le datagrid.
Je pense que cela pourrais etre causé par une mauvaise comparaison au niveau des datagrid mais je ne vois pas comment faire autrement peut etre avec un while pour faire une meilleure recherche ?
Un peu d'aide serais le bien venu merci.

[Xteyse]

Personne ?
Bon j'ai éssayer avec un while mais le problème c'est que sa boucle à l'infinie et sa n'affiche toujours pas les prix.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
        While bool = False
            For i = 0 To dgt_conso.RowCount - 2
                dgt_conso.Item(0, i).Value = ref
                For j = 0 To Form4.dgt_prod.RowCount - 2
                    If ref = Form4.dgt_prod.Item(1, j).Value Then
                        dgt_conso.Item(2, i).Value = prix
                        prix = Form4.dgt_prod.Item(3, j).Value
                        bool = True
                    End If
                Next
            Next
        End While

Est ce que du fait que ce soit une combobox le .item.value ne prenne pas ma valeur en compte ?

[Xteyse]

Finalement problème résolu après de nombreux test et recherche en faisant un parcours de tableau. Je laisse mon code (un peu barbare) pour ceux que sa pourrais intérresser

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 x As Integer
        Dim k As Integer
        Dim tablo(50) As String
        For x = 0 To Form4.dgt_prod.RowCount - 1
 
            tablo(x) = Form4.dgt_prod.Item(1, x).Value
 
            For i = 0 To tablo.Length - 1 'vérifie pr chaque indice du tablo
                For j = 0 To dgt_command.RowCount - 1
                    If dgt_command.Item(0, j).Value = tablo(i) Then
                        If i < Form4.dgt_prod.RowCount - 1 Then
                            k = i
                            dgt_command.Item(2, j).Value = Form4.dgt_prod.Item(3, k).Value
                        End If
                    End If
                Next
            Next
        Next