none
Combobox.Items RRS feed

  • Question

  • J aie charger un combobox avec une liste de nom d'une base de donné (Facture)
    vue qui peu avoir plusieur facture avec le meme nom de client il se répette

    Alors une idée pour éliminer les noms identiques dans mon combobox.Items

    Je charge mon combobox de cette façon

    Dim

    charge = From ech In ta.Mes_factures _
    Where ech.Client_no <> "" _
    Select ech.Client_no
     
    For Each nom In charge
    ComboBox2.Items.Add(nom)
    Next
    mercredi 23 décembre 2009 13:26

Réponses

  • Bonjour,

    Voici ton code avec une fonction pour supprimer les noms en doubles : (remet cela à la place de ton code)
    Dim
    charge = From ech In ta.Mes_factures _
    Where ech.Client_no <> "" _
    Select ech.Client_no
    
    For Each nom In charge
         
         Dim compar As Integer
         compar = 0
         Dim ite As Object
         For Each ite In ComboBox2.items ' Passage sur chaque items déjà présent
              If ite = nom then 'Si un item est égal au nom alors compar devient 1
                   compar = 1
              End If
         Next
         If compar <> 1 then 'Ajouter le nom si compar est différent de 1
              ComboBox2.Items.Add(nom)
         End If
    Next
    Je n'ai pas pu tester ce code.

    Vive Visual Basic !
    • Modifié DéveloppatOR mercredi 23 décembre 2009 14:30 Oubli
    • Proposé comme réponse DéveloppatOR mercredi 23 décembre 2009 14:31
    • Marqué comme réponse FrançoisM mercredi 23 décembre 2009 19:34
    mercredi 23 décembre 2009 14:29

Toutes les réponses

  • Bonjour,

    Voici ton code avec une fonction pour supprimer les noms en doubles : (remet cela à la place de ton code)
    Dim
    charge = From ech In ta.Mes_factures _
    Where ech.Client_no <> "" _
    Select ech.Client_no
    
    For Each nom In charge
         
         Dim compar As Integer
         compar = 0
         Dim ite As Object
         For Each ite In ComboBox2.items ' Passage sur chaque items déjà présent
              If ite = nom then 'Si un item est égal au nom alors compar devient 1
                   compar = 1
              End If
         Next
         If compar <> 1 then 'Ajouter le nom si compar est différent de 1
              ComboBox2.Items.Add(nom)
         End If
    Next
    Je n'ai pas pu tester ce code.

    Vive Visual Basic !
    • Modifié DéveloppatOR mercredi 23 décembre 2009 14:30 Oubli
    • Proposé comme réponse DéveloppatOR mercredi 23 décembre 2009 14:31
    • Marqué comme réponse FrançoisM mercredi 23 décembre 2009 19:34
    mercredi 23 décembre 2009 14:29
  • Mercie DéveloppatOR  ca Fobctionne tres bien
    mercredi 23 décembre 2009 19:35