IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

[vb6]Probleme en Evenement DbClick du Listview Pour Suppression


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Avril 2008
    Messages
    71
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 71
    Par défaut [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 : 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
    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 ?

  2. #2
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Membre confirmé
    Inscrit en
    Avril 2008
    Messages
    71
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 71
    Par défaut
    Citation Envoyé par ucfoutu Voir le message
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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?

  4. #4
    Membre Expert Avatar de OhMonBato
    Homme Profil pro
    Inscrit en
    Mars 2007
    Messages
    2 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 660
    Par défaut
    Citation Envoyé par r.mehdi Voir le message
    Voila Mon code
    Je le vois pas

Discussions similaires

  1. Probleme ADO adapter une requete sql pour l'utiliser dans mon code vb6
    Par jacko842 dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 22/04/2009, 15h53
  2. [VB6] Probleme avec les evenements keydown et keyup
    Par johnson95 dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 04/07/2006, 13h50
  3. [VB6]probleme de licence pour les dbgrid
    Par zebougha dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 05/04/2006, 21h14
  4. [VB6] Problèmes avec ListView
    Par FlopErik dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 12/03/2003, 16h33
  5. [VB6] attendre un événement pour continuer l'exécution
    Par Argonz dans le forum VB 6 et antérieur
    Réponses: 21
    Dernier message: 12/11/2002, 13h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo