Discussion :

[Marc_27]

Bonjour, on y va encore une fois...


J'ai une listview où j'essaye de prendre la valeur de la première colonne lors d'un clic, pour l'utiliser comme parametre d'une autre liste:

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
Private Sub lstCollaborateursComplete_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles lstCollaborateursComplete.ItemSelectionChanged
        Me.lstFormationsCollaborateur.Items.Clear()
        Dim MyConnexion As SqlConnection, Mycommand As SqlCommand, Reader As SqlDataReader
        strSQL = "SELECT T_themes.Sujet_nom, T_stages.Stage_nom, T_organismes.Organisme_nom, T_calendrier.Date, COALESCE(T_calendrier.Duree, 0)+COALESCE(T_calendrier.Duree_ht, 0) " & _
                 "FROM T_calendrier LEFT OUTER JOIN T_stages LEFT OUTER JOIN T_themes ON T_stages.Sujet = T_themes.Sujet LEFT OUTER JOIN T_organismes ON T_stages.Organisme = T_organismes.Organisme ON T_calendrier.Stage = T_stages.Stage " & _
                 "WHERE T_calendrier.Annulee=0 AND T_calendrier.Faite=1 AND T_calendrier.Mec='" & Me.lstCollaborateursComplete.SelectedItems(0).Text & "' " & _
                 "ORDER BY T_calendrier.Date DESC"
        MyConnexion = New SqlConnection(DRHConn)
        Mycommand = MyConnexion.CreateCommand()
        Mycommand.CommandText = strSQL
        MyConnexion.Open()
        Reader = Mycommand.ExecuteReader()
        While Reader.Read()
            Dim LVI As New ListViewItem
            LVI.Text = Reader(3)
            LVI.SubItems.Add(Reader(1).ToString)
            LVI.SubItems.Add(Reader(2).ToString)
            LVI.SubItems.Add(Reader(4).ToString)
            LVI.SubItems.Add(Reader(0).ToString)
            lstFormationsCollaborateur.Items.Add(LVI)
        End While
        Reader.Close()
        MyConnexion.Close()
    End Sub

Tout marche bien si je clic une fois, mais si je clic une deuxième fois, j'ai le message InvalidArgument=Value of '0' is not valid for 'index'. Parameter name: index dans le texte de ma requete strSQL.

Est-ce que quelqu'un peut, encore une fois, m'aider, svp??

[dudule]

Le problème semble que tu n'as rien de selectionné la 2ème fois.
Mets cette condition au début de ta fonction:

If Me.lstCollaborateursComplete.SelectedItems isNothing then exit sub

Il passe peut etre plusieurs fois dans cette evenement. 1 fois pour la déselection en cours et une autre fois pour selectionner la nouvelle ligne.

[Marc_27]

Merci dudule.

Il ne laisse pas ecrire: Value of type System.Windows.Form.ListView.SelectedListViewItemCollection' cannot be converted to 'Boolean'.

[Marc_27]

En suivant l'idée, j'ai mis

Code :

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

1
2
3
4
5
Try
...
Catch exp As ArgumentOutOfRangeException
     Exit Sub
End Try

Merci beaucoup dudule