Discussion :

[Shadam]

Salut à tous
Bon alors après m'être arraché les cheveux sur le msdn et ne rien avoir trouvé de probant sur le net, je vous montre ce petit truc tout con mais que je n'arrive pas à faire.

Comment forcer la sélection d'une ligne sur une DGV ?

Pour l'instant je fais ça :

Code :

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

1
2
3
4
5
6
7
8
9
Dim i As Integer = 0
            For Each l As Langue In listeLangue
                Dim titre As String = CtrlOngletCreation.getTitre(l.Langue_ID, f.Fiche_ID)
                DGVTitres.Rows.Add(l.Langue_ID, l.Langue_LIB, titre)
                If DGVListeFiche.SelectedCells.Item(2).Value = l.Langue_LIB Then
                    DGVTitres.Rows(i).Selected = True
                End If
                i += 1
            Next

Le test fonctionne, il passe dedans quand il doit le faire mais il ne sélectionne pas la ligne à l'index indiqué, il prend la première à chaque fois...

Merci

[Gurdil le nain]

Ta datagrid a t-elle la propriété :

Code :

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

DGVTitres.SelectionMode = DataGridViewSelectionMode.FullRowSelect

[Shadam]

Ta datagrid a t-elle la propriété :

Code :

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

DGVTitres.SelectionMode = DataGridViewSelectionMode.FullRowSelect

Tout à fait, c'est pourquoi je comprends d'autant moins...

[Gurdil le nain]

Ouais je sais pas, c'est bizarre, moi le Rows(i).Selected = True marche bien...

J'ai pas trop regardé ta boucle, mais au final elle doit sélectionner plusieurs ligne ?

Si oui, est ce que ta propriété MultiSelect est bien à True ?

[Shadam]

J'ai commenté mon code pour tu puisses y voir un peu plus clair :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Integer = 0
            'Arraylist avec des langues
            For Each l As Langue In listeLangue
                'Je récupère en base le titre qui correspond à la langue de l'itération
                Dim titre As String = CtrlOngletCreation.getTitre(l.Langue_ID, f.Fiche_ID)
                'Je rajoute une ligne dans DGVTitres avec le titre récupéré et la langue en cours
                DGVTitres.Rows.Add(l.Langue_ID, l.Langue_LIB, titre)
                'DGVListeFiche est à multiSelect = False, si la ligne sélectionnée est dans la même langue
                'que celle que je viens d'ajouter je la sélectionne
                If DGVListeFiche.SelectedCells.Item(2).Value = l.Langue_LIB Then
                    DGVTitres.Rows(i).Selected = True
                End If
                i += 1
            Next

Mais je suis en train de me poser une questions : Si je rajoute d'autres lignes après avoir déterminé

Code :

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

DGVTitres.Rows(i).Selected = True

Est ce que ça ne l'annule pas du coup ?

Edit : oui bah non, je viens de tester d'attribuer le select à la sortie du For Each mais ça ne change rien

[Shadam]

Bon alors petite rectification: en fait ça fonctionne mais à partir du deuxième passage dans la boucle...
Je m'explique, en fait au premier passage il s'en bat les steaks et continu comme si de rien n'était et pour le 2ème, 3ème, 4ème, [...] passage ça fonctionne

Une idée ?

j'ai ça :

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
Dim i As Integer = 0
            Dim j As Integer = 0
            'Arraylist avec des langues
            For Each l As Langue In listeLangue
                'Je récupère en base le titre qui correspond à la langue de l'itération
                Dim titre As String = CtrlOngletCreation.getTitre(l.Langue_ID, f.Fiche_ID)
                'Je rajoute une ligne dans DGVTitres avec le titre récupéré et la langue en cours
                DGVTitres.Rows.Add(l.Langue_ID, l.Langue_LIB, titre)
                'DGVListeFiche est à multiSelect = False, si la ligne sélectionnée est dans la même langue
                'que celle que je viens d'ajouter je la sélectionne
                If DGVListeFiche.SelectedCells.Item(2).Value = l.Langue_LIB Then
                    j = i
                End If
                i += 1
            Next
            DGVTitres.ClearSelection()
            DGVTitres.Rows(j).Selected = True