[vb 6.0] Problème lié au tri d'une listview

Question

Bonjour &#224; tous,

Je liste des &#233;l&#233;ments contenus dans une bdd access dans une listview.
Je trie ses colonnes gr&#226;ce &#224; la tr&#232;s bonne source : http://www.vbfrance.com/code.aspx?ID=7629

Le probl&#232;me qui se pose est le suivant : 
Quand je clique sur un &#233;l&#233;ment de ma listview, je r&#233;cup&#232;re les donn&#233;es pour les afficher dans des textbox mais si j'effectue un tri quelconque le fait de cliquer sur un &#233;l&#233;ment n'y change rien...Je m'explique : 

Au load, j'ai ce r&#233;sultat dans ma listview : 

M. dupond alain 1,rue principale

M. alvarez diego 1, rue de la chasse
=====================================

Imaginons que je clique sur la colonne qui trie sur le nom de famille ....
il va me mettre 'alvarez' en premier 
mais lorsque je clique sur mon element 'alavarez', les textbox contiennent les donn&#233;es de 'dupond'

Si quelqu'un pouvait m'&#233;clairer ....en esp&#233;rant avoir &#233;t&#233; assez clair

Merci

cs_mik67 · Answer

J'oubliais une chose ...d&#233;sol&#233;

Je r&#233;cup&#232;re mes valeurs dans mes textbox de la facon suivante
(j'ai ici des labels mais le principe reste le meme... )

' D&#233;claration d'une variable pour r&#233;cup&#233;ration de l'index
    Dim LongIndex As Long

    ' Pour mise &#224; jour des zones de texte
    Dim IntegerIndex As Integer

    'Mise &#224; jour des zones de texte
    While (IntegerIndex < 9)
        Text1.Item(IntegerIndex).Text = ""
        IntegerIndex = IntegerIndex + 1
    Wend

    'Positionnement sur le premier enrregistrement valide
    resultatADO.MoveFirst

    'R&#233;cup&#233;ration de l'index
    LongIndex = ItemValide.Index

    'Positionnement sur l'enregistrement correspondant au choix de l'utilisateur
    resultatADO.Move (LongIndex - 1)

    'Mise &#224; jour des zones de texte - Affichage des donn&#233;es
    If Not IsNull(resultatADO!CivilClip) Then
        Me.lblCivil.Caption = Trim((resultatADO!CivilClip))
    End If

    If Not IsNull(resultatADO!NomCliP) Then
       Me.lblNom.Caption = (resultatADO!NomCliP)
    End If

cs_DARKSIDIOUS · Answer

Forc&#233;ment : si tu trie tes informations, les informations stock&#233;es dans
le listview ne sont plus dans le m&#234;me ordre que dans ton recordset,
donc ca ne peut pas marcher !



Fait plut&#244;t un truc comme c&#224; :



resultatADO.MoveFirst
resultatADO.Find("NomClip='" & listview.listitem(listview.selecteditem).listsubistem("NomClip").text & "'")

    If Not IsNull(resultatADO!CivilClip) Then

        Me.lblCivil.Caption = Trim((resultatADO!CivilClip))

    End If

    If Not IsNull(resultatADO!NomCliP) Then

       Me.lblNom.Caption = (resultatADO!NomCliP)

    End If

_____________________________________________________________________

cs_mik67 · Answer

J'arrive &#224; r&#233;cup&#233;rer la civilit&#233; ('melle' par exemple) mais j'arrive pas &#224; atteidre la colonne qui contient le nom....
Ca bloque au niveau du listSubItems(.......)

cs_DARKSIDIOUS · Answer

Tout d&#233;pend comment est agenc&#233; ta listview : si la colonne nom est
la premi&#232;re, alors pas besoin de passer &#224; ListSubItem :
ListView.ListItem(Index).Text contiendras le nom &#224; chercher.

_____________________________________________________________________

cs_mik67 · Answer

Par rapport a mon code que j'ai post&#233; quelles parties dois je enlever et lesquelles dois je laisser 
Je suppose que le ".Find" remplace le ".Move" ? 

A l'execution il me r&#233;pond "cl&#233; non valide" ....

[vb 6.0] Problème lié au tri d'une listview

5 réponses

Discussions similaires