Combobox et SelectedValueChanged

Bonjour,
j'ai un Combobox que je remplis dans le load de ma page
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim DS As New DataSet() DS.ReadXml("filieres.xml") Dim rowFil As DataRow rowFil = DS.Tables("filiere").NewRow() rowFil.Item("id") = "00" rowFil.Item("filiere_Text") = "" DS.Tables("filiere").Rows.Add(rowFil) CB_Filiere.DataSource = DS.Tables("filiere") CB_Filiere.DisplayMember = "filiere_Text" CB_Filiere.ValueMember = "id" CB_Filiere.SelectedValue = "00"
Maintenant je rajoute du code car je voudrais modifier un bouton selon l'élément sélectionné de mon combobox
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CB_Filiere_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CB_Filiere.SelectedValueChanged 'Debloque le bouton d'accès au tableau si données existantes If CB_Filiere.SelectedValue = "00" Then BtnNegoc.Enabled = False Else If Me.NegocDataSet.Tables("pcv").Select("Filiere='" & CB_Filiere.SelectedValue & "'").Length > 1 Then BtnNegoc.Enabled = True Else BtnNegoc.Enabled = False End If End If End Sub
Et le truc que je ne comprend pas c'est que la fonction CB_Filiere_SelectedValueChanged est déclénchée sur la ligne

Code:

CB_Filiere.DataSource = DS.Tables("filiere")

Ce qui du coup me donne l'erreur sur

Code:

If CB_Filiere.SelectedValue = "00" Then

Car je n'ai encore rien sélectionné dans ma combo, je suis en train de définir le datasource.....
Où dois-je mettre mon code qui se déclenchera quand l'utilisateur changera de valeur dans la combo.
J'ai essayé SelectedIndexChange et TextChange mais ils se déclenchent tous sur ma déclaration DataSource de ma combo....
Merci

Mettre le combobox sur disable pendant le chargement.

Citation:

Envoyé par charliejo

Et le truc que je ne comprend pas c'est que la fonction CB_Filiere_SelectedValueChanged est déclénchée sur la ligne

Code:

CB_Filiere.DataSource = DS.Tables("filiere")

C'est normal, le fait d'affecter une DataSource change l'élément sélectionné (même si c'est pour sélectionner Nothing)

Citation:

Envoyé par charliejo

Ce qui du coup me donne l'erreur sur

Code:

If CB_Filiere.SelectedValue = "00" Then

Quelle erreur ? Désolé, je n'ai pas de boule de cristal ;)
Je ne vois pas de raison pour que cette instruction déclenche une erreur, tu es sûr que c'est bien sur cette ligne ?

Oui j'ai bien une erreur sur cette ligne car n'ayant aucune valeur dans sélectionné il me gère une erreur !!!!!

Citation:

Envoyé par charliejo

Oui j'ai bien une erreur sur cette ligne car n'ayant aucune valeur dans sélectionné il me gère une erreur !!!!!

Comme l'a dit @tomlev, si tu ne donnes pas le message d'erreur que tu obtiens, on ne pourra pas t'aider ;)

Citation:

Envoyé par charliejo

Oui j'ai bien une erreur sur cette ligne car n'ayant aucune valeur dans sélectionné il me gère une erreur !!!!!

Le fait de ne pas avoir de valeur sélectionnée n'est pas une erreur. SelectedValue vaut Nothing, donc ce n'est pas égal à "00", donc tu ne rentres pas dans le If... Donc, encore une fois, je ne vois pas quelle erreur pourrait bien être générée à cette ligne, et tant que tu ne nous l'auras pas dit on ne pourra rien pour toi ;)

J'ai l'erreur

Citation:

L'exception InvalidCastException n'a pas été géré par le code utilisateur La résolution de surcharge a échoué, car aucun '=' Public ne peut être appelé avec ces arguments : 'Public Shared Operator =(a As String, b As String) As Boolean': L'argument qui correspond au paramètre 'a' ne peut être converti en 'DataRowView' en 'String'

Si J'aoute sur mon "SelectedValueChanged" le code

Code:

Msgbox (CB_Filiere.SelectedValue.ToString())

J'ai

Citation:

System.Data.DataRowView

Et ma fonction SelectedValueChanged est bien déclenchée par la ligne

Code:

CB_Filiere.DataSource = DS.Tables("filiere")

Merci

Citation:

L'exception InvalidCastException n'a pas été géré par le code utilisateur La résolution de surcharge a échoué, car aucun '=' Public ne peut être appelé avec ces arguments : 'Public Shared Operator =(a As String, b As String) As Boolean': L'argument qui correspond au paramètre 'a' ne peut être converti en 'DataRowView' en 'String'

Argh... voilà une des nombreuses raisons pour lesquelles j'aime pas Visual Basic :aie:
Normalement ça aurait du être résolu à la compilation, pas à l'exécution... SelectedValue est déclaré comme étant de type Object, donc le test d'égalité avec une String aurait dû être un appel à Equals, et y aurait pas eu cette erreur.

Enfin bon, mettons entre parenthèses le fait que VB est un langage de m***e, et cherchons une solution...

En fait, quand tu affectes une DataTable comme DataSource du ComboBox, les items du ComboBox sont des DataRowView. Comme à ce stade tu n'as pas encore défini le ValueMember, SelectedValue vaut la même chose que SelectedItem, c'est donc un DataRowView. Après que tu aies défini le ValueMember, SelectedValue sera bien de type String...

Donc en fait il faudrait faire un test en plus dans le SelectedIndexChange :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub CB_Filiere_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CB_Filiere.SelectedValueChanged ' On vérifie que CB_Filiere.SelectedValue est de type String Dim selectedValue As String = TryCast(CB_Filiere.SelectedValue, String) If selectedValue IsNothing Then Return End If 'Debloque le bouton d'accès au tableau si données existantes If selectedValue = "00" Then BtnNegoc.Enabled = False Else If Me.NegocDataSet.Tables("pcv").Select("Filiere='" & CB_Filiere.SelectedValue & "'").Length > 1 Then BtnNegoc.Enabled = True Else BtnNegoc.Enabled = False End If End If End Sub
Ca fait un peu rustine, mais bon... ça devrait marcher

Finalement, j'ai trouvé, j'ai mis sur l'événement SelectionChangeCommitted...et cet événement se lance seulement lorsque l'utilisateur a modifié la combo.

Merci .