Discussion :

[Masamunai]

Bonjour

Je suis confronté à un problème dont je ne comprends pas le pourquoi (et donc je ne trouve pas de solution).

Pour simplifier, j'ai 2 comboboxs Cbx1 et Cbx2, dont leurs Datasources sont bindées à une Dataview filtrée.
J'ai également une procédure qui "reset" les dataviews de ces 2 cbx, ce qui fait qu'elles se retrouvent bindées à une nouvelle DataView filtrée differemment.
A la fin de cette même procédure, il y a du code qui remet la valeur Text de ces 2 Cbx à celles qu'elles avaient avant le reset, si et seulement si ces anciennes valeurs appartiennent à la nouvelle dataview. (obligé de faire ca car sinon le fait d'affecter une nouvelle dataview à un Datasource provoque le Text = 1ère valeur de la nouvelle dataview...relou mais bon...)

Jusque là pas de problème... sauf dans le cas où ces 2 Cbx sont en fait mutuellement exclusives. Cela signifie que la valeur Text de la 1ère Cbx ne doit pas apparaitre dans la liste déroulante de la 2nde Cbx, et vice versa.

Donc dans l'événement qui appelle la procédure "Reset", j'ai rajouté ces lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
            UpdateEquipList() ' procédure reset
            If Cbx1.FindStringExact(Cbx2.Text) > -1 Then
                Cbx1.Items.Remove(Cbx2.Text)
            End If
            If Cbx2.FindStringExact(Cbx1.Text) > -1 Then
                Cbx2.Items.Remove(Cbx1.Text)
            End If

Pas d'erreur de syntaxe, mais à l'éxécution , ca fait......... rien du tout
On retrouve Cbx1.text dans la liste déroulante de Cbx2 et vice versa...

Après quelques heures de recherche, je crois que les collections Cbx1.Items et Cbx2.Items sont en fait vides, vu que j'ai "rempli" ces comboboxs via leur datasource. (bizarrement quand je teste Cbx1.Items.Count, ca me retourne 79... et après le .Remove, .count=79 pareil)
J'ai donc essayé en remplaçant les lignes en gras par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cbx1.Datasource.

et là je m'aperçois que VB ne me propose pas de méthode Remove ou Delete, ni même Item...
...et comme je n'ai plus accès aux dataviews, je ne peut pas m'en servir.
Je ne peut pas non plus mettre ces lignes directement dans la procédure UpdateEquipList() puisque je dois attendre que Cbx1 et Cbx2 aient été resetées, avant de pouvoir de comparer leurs valeurs Text.
Du coup, me voilà bien coincé...

Quelqu'un aurait-il une idée svp ?

[mactwist69]

Si les combobox sont bindé sur les dataview....

C'est pas au niveau des combobox qu'il faut supprimer des éléments, mais directement a la source, c'est a dire les dataview.

[Masamunai]

Justement je n'ai plus ces dataviews...

En fait, la procédure UpdateEquipList est une boucle qui construit une seule unique dataview avec une datatable dont le nom est le même que la combobox, puis elle affecte cette dataview a la datasource de la combobox, puis passe a la combobox suivante, etc... jusqu'a avoir fini de reset 60 comboboxs.
Le hic c'est que dans le tas, quelques paires de cbx sont mutuellement exclusives... c'est pour ca que je veux rajouter ces Remove pour réparer les pots cassés :s

Si quelqu'un sait où se trouvent les collections contenant les items des dropdownlist, sous forme d'un objet possédant une méthode remove ou Delete ou similaire, le problème sera résolu.

[Masamunai]

Bonjour

J'ai fait quelque tests afin d'essayer de trouver où se trouvent mes items de cbx :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox(Me.Cbx1.Items()(2).ToString)

Resultat affiché: "System.Data.DataRowView"

en lisant ça jme dit "tiens tiens les items sont encore au format DataView (alors que la dataview qui a servi à affecter le datasource n'existe plus depuis belle lurette)". J'essaie quand même un cast :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox(CType(Me.Cbx1.Items()(2), DataRowView).Row.Item("Names").ToString)

Resultat affiché: "Axe Grip" (c'est bien l'affichage du 3e item de la dropdownList)
Encore mieux, je découvre qu'après un Cast, l'objet obtenu a la méthode Delete ! Je me dit "Super voilà ce qui me fallait", et me voilà à taper dans mon code ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
            If Me.Cbx1.FindStringExact(Me.Cbx2.Text) > -1 Then
                CType(Me.Cbx1.Items()(Me.Cbx1.FindStringExact(Me.Cbx2.Text)), DataRowView).Delete()
            End If
            If Me.Cbx2.FindStringExact(Me.Cbx1.Text) > -1 Then
                CType(Me.Cbx2.Items()(Me.Cbx2.FindStringExact(Me.Cbx1.Text)), DataRowView).Delete()
            End If

... et là surprise !!
Non seulement il me delete Cbx1.Text et Cbx2.Text, mais il le fait ..... sur ma BDD carrément ces 2 valeurs disparaissent littéralement de la nature, totalement "pulvérisées" (heureusement g une backup de mon fichier BDD)

Donc bon je suis pas encore au bout de mes peines...

Si quelqu'un a une idée de la bonne syntaxe en moins , "I'm interested please".