Discussion :

[charliejo]

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

Code :

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

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 :

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

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 :

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

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

Ce qui du coup me donne l'erreur sur

Code :

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

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

[Danyel]

Mettre le combobox sur disable pendant le chargement.

[tomlev]

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 :

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

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)

Ce qui du coup me donne l'erreur sur

Code :

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

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 ?

[charliejo]

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

[Jean-Michel Ormes]

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

[tomlev]

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

[charliejo]

J'ai l'erreur

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 :

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

Msgbox (CB_Filiere.SelectedValue.ToString())

J'ai

System.Data.DataRowView

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

Code :

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

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

Merci

[tomlev]

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
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 :

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

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