Me.cmb_Acteur.DataSource = Me.CsDb.LoadDb("SELECT DISTINCT acteurs FROM t_jeux", "t_jeux", "BD\jvtheque.mdb")
Me.cmb_Acteur.DataSource = Me.CsDb.LoadDb("SELECT DISTINCT acteurs FROM t_jeux ORDER BY acteurs", "t_jeux", "BD\jvtheque.mdb")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub SupprDoublon(ByVal ctrl As ComboBox) Dim NewList As New List(Of Object) For Each Item As Object In ctrl.Items If Not NewList.Contains(Item) Then NewList.Add(Item) Next Item ctrl.DataSource = NewList '-- La commande précédente selectionne automatiquement le premier '-- élément du ComboBox. Si C'est ennuyeux, décommente la ligne qui suit 'ctrl.SelectedIndex = -1 End Sub
Private Sub SupprDoublon(ByVal ctrl As ComboBox) For i = ctrl.Items.Count - 1 to 0 step -1 For a = ctrl.Items.Count - 1 to i + 1 step -1 If ctrl.Items(i) = ctrl.Items(a) Then ctrl.Items.Remove(a) Exit for End If Next a Next i End Sub
#Region "Utilisation des class" Private CsDb As New ClassBdd() #End Region Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'combo genre Me.ComboObjet.DataSource = Me.CsDb.LoadDb("SELECT * FROM t_genres", "t_genres", "BD\jvtheque.mdb") 'On charge les données dans le combobox Me.ComboObjet.DisplayMember = "gen_nom" 'On choisi le champs à afficher dans le combobox car elle ne peut en afficher qu'un seul 'combo support Me.cmb_Support.DataSource = Me.CsDb.LoadDb("SELECT * FROM t_support", "t_support", "BD\jvtheque.mdb") 'On charge les données dans le combobox Me.cmb_Support.DisplayMember = "support" 'On choisi le champs à afficher dans le combobox car elle ne peut en afficher qu'un seul 'combo acteurs Me.cmb_Acteur.DataSource = Me.CsDb.LoadDb("SELECT * FROM t_jeux", "t_jeux", "BD\jvtheque.mdb") 'On charge les données dans le combobox Me.cmb_Acteur.DisplayMember = "acteurs" 'On choisi le champs à afficher "acteur" dans le combobox car elle ne peut en afficher qu'un seul End Sub Private Sub SupprDoublon(ByVal ctrl As ComboBox) Dim NewList As New List(Of Object) For Each Item As Object In ctrl.Items If Not NewList.Contains(Item) Then NewList.Add(Item) Next Item ctrl.DataSource = NewList '-- La commande précédente selectionne automatiquement le premier '-- élément du ComboBox. Si C'est ennuyeux, décommente la ligne qui suit 'ctrl.SelectedIndex = -1 End Sub
salut,
http://www.codyx.org/snippet_supprimer-doublons-combobox_374.aspx#1203