[vb6]Probleme en Evenement DbClick du Listview Pour Suppression

bonjour

Je travaille souvent avec listview pour affichage des données.

Je travaille sur un projet Gestion stock. J'ai un formulaire Commande que j'effectue Listview pour savoir ce que le client a commandé. Bon! le problème que j'ai eu c'est par exemple :
un client désigne 4 articles
puis il change d'avis, il n'en veut que 3. Donc, je dois en supprimer tout en cliquant sur Listview. J'ai choisi l'événement DBClick pour faire ce travail.

Voilà Mon code :

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
Sub Listview_concept()
    ListView1.ListItems.Clear
    With ListView1.ColumnHeaders 'Conception du L'entête du Listview2
        .Clear
        .Add , , "N°depôt", (ListView1.Width * (2 / 20)), lvwColumnLeft
        .Add , , "Libellé", (ListView1.Width * (2 / 18)), lvwColumnLeft
        .Add , , "Code Article", (ListView1.Width * (2 / 18)), lvwColumnLeft
        .Add , , "Designation  ", (ListView1.Width * (2 / 5)), lvwColumnLeft
        .Add , , "Prix Unitaire", (ListView1.Width * (2 / 16)), lvwColumnLeft
        .Add , , "Qt.Commandée", (ListView1.Width * (2 / 14)), lvwColumnLeft
    End With
    ListView1.View = 3
End Sub
'*******
Sub Listview_delete()
    SQL = "delete * from contient where codea_cont='" & Combo1 & "'"
    Base.Execute SQL
    Combo6.Text = "": Combo7.Text = ""
    Combo4.Text = "": Combo5.Text = ""
    Text1.Text = "": Text2.Text = ""
End Sub
'*******
Private Sub Form_Load()
    Ouverture 'Connexion B.D
    ListView1.FullRowSelect = True
End Sub
'*******
Private Sub ListView1_DblClick()
    Dim Indexitem As Long  'Variable qui va contenir L'index de L'enregistrement
    With E_contient
        .MoveFirst 'Pour se palcer au Premier Enregistrement Sinon Erreur
        Indexitem = Item.Index 'Affectation du index a la variable
        .Move (Indexitem - 1)  'Positionement sur l'Enregistrement Selectionner
        Combo6.Text = IIf(IsNull(![numd_cont]), "", ![numd_cont])
        Combo7.Text = IIf(IsNull(![libd_cont]), "", ![libd_cont])
        Combo4.Text = IIf(IsNull(![codea_cont]), "", ![codea_cont])
        Combo5.Text = IIf(IsNull(![desig_cont]), "", ![desig_cont])
        Text1.Text = IIf(IsNull(![pu_cont]), "", ![pu_cont])
        Text2.Text = IIf(IsNull(![qtc_cont]), "", ![qtc_cont])
    End With
    call Listview_delete
End Sub

Quand j'exécute et que je fais Double Click sur Listview, il me donne un débogage 'Objet requis' sur (Indexitem = Item.Index) :(
svp pourriez-vous m'aider ?

Code:

1
2
3
4
5
Private Sub ListView1_DblClick()
  Dim choisi As Integer
  choisi = ListView1.SelectedItem
  MsgBox "tu viens de double-cliquer sur la ligne " & choisi 
End Sub

Citation:
Envoyé par ucfoutu
Code:

1 2 3 4 5 Private Sub ListView1_DblClick() Dim choisi As Integer choisi = ListView1.SelectedItem MsgBox "tu viens de double-cliquer sur la ligne " & choisi End Sub
oui Merci ca Marche:)
Mais dsl j'ai eu un autre probleme c'est quand je valide 1 article designer par un client y il m'ajout dans listview 2 Article au lieu que 1 :( la Premiere pour Client X et la 2eme pour Client y (que j'ai deja valider sa Commande) j'en sais pas Pourkoi :(
malgré que quand je Valide la Commande du Client X je fais LISTVIEW1.LISTITEMS.CLEAR
je vois ce Probleme uniquement si 2 client on Designer le Meme Article le Contraire ca marche tres bien
Voila Mon code
Pourres tu aider sur Ca?:(

Citation:

Envoyé par r.mehdi

Voila Mon code

Je le vois pas ;)