Combobox + doublons

Version imprimable

11/03/2008, 14h40
Zachs

Combobox + doublons

Bonjour, j'aimerai evité d'avoir des doublons dans ma combobox. Existe-il une propriété qui fait ca ou dois-je la consevoir moi même?

Merci:king:
12/03/2008, 10h51
tatone

Bonjour,

que mets tu dans ta combobox ? elle est liée à une base ?
En fait, comment est elle remplie ?

Tatone

Salut,

si ton combobox est basé sur un datatable, voici une fonction que j'ai récupéré sur le net qui fonctionne très bien :

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
 Public Function selectDistincDataView(ByVal table As DataTable, ByVal champ As String) As DataTable
        'PERMET D'EFFECTUER UN SELECT DISTINCT SUR UN DATATABLE
 
        Dim i As Int32
        Dim ret As Int16
        Dim dtResultat As New DataTable
        dtResultat.Columns.Add(champ, table.Columns(champ).DataType)
        dtResultat.DefaultView.Sort = champ
        dtResultat.DefaultView.ApplyDefaultSort = True
        For i = 0 To table.Rows.Count - 1
            If dtResultat.Rows.Count > 0 Then
                ret = dtResultat.DefaultView.Find(table.Rows(i)(champ))
                If ret = -1 Then
                    dtResultat.Rows.Add(dtResultat.NewRow)
                    'dtResultat.Rows(dtResultat.Rows.Count - 1)(champ) = table.Rows(i)(champ)
                    dtResultat.Rows(dtResultat.Rows.Count - 1)(champ) = table.Rows(i)(champ)
                End If
            Else
                'MsgBox(table.Rows(0)(champ))
                dtResultat.Rows.Add(dtResultat.NewRow)
                'dtResultat.Rows(0)(champ) = table.Rows(0)(champ)
                dtResultat.Rows(0)(champ) = table.Rows(0)(champ)
            End If
        Next
        Return dtResultat
    End Function

Tu indiques ta table et le champ à récupérer puis cela te retourne la table avec le champ sans doublon.

12/03/2008, 13h54
roshy
Lorsque je veux faire ça, juste avant d'insérer la valeur dans le combobox je regarde si le string (ou l'objet) à insérer est déjà présent dans le combobox.
Code:

1 2 MonComboBox.Items.Contains("StringAInserer")
Fais attention cependant parce que c'est case sensitive. Ce qui veut dire que si "Meow" est dans le combobox et que tu regarde si "meow" existe dans tes item, il va te dire que non.
12/03/2008, 19h08
olsimare

Bonjour.

Je pense que le probléme du dédoublonnage en masque un autre.

Utiliser une datasource contenant de doublons pour un combobox démontre un probléme conceptuel quelque part.

Donc pourquoi as-tu des doublons dans la source ?

Cdt.
14/03/2008, 09h01
Zachs

Merci pour votre aide je vais essayer les differente solutions, pour l'histoire des doublons c'est mon pote qui a fait la partie du programme il a pas reflechi comment faire et tout refaire maintenant demanderais trop de travail pour le temps a dispotition.
01/04/2008, 10h35
Zachs

Désolé pour la réponse super tardive, alors j'ai essayer le

Code:

MonComboBox.Items.Contains("StringAInserer")

ca marche nickel.