Discussion :

[noftal]

Bonjour,

Je suis en train de coder un formulaire "critère de recherche" pour afficher le résultat d'une requête dont l'utilisateur rentrerait ses propres critères.

Parmi les champs servant de critère j'ai une combobox dont la liste est liée à une table via une liaison.
Mais comme il s'agit d'un champ de recherche, il faut que je rajouter un champ vide (ou "(tous)" par exemple) en tête de liste (index 0) pour permettre à l'utilisateur de supprimer ce champ de son critère de recherche.

Je sais attribuer l'index -1 à cet combo au chargement du formulaire pour que ce champ soit vierge au démarrage mais dès que l'utilisateur choisit une valeur, il ne peut plus revenir en arrière.

J'ai bien essayé d'appliquer la méthode Dataset.rows.add suivi d'un "sorted = true" mais cela ne change pas les index si bien que en sélectionnant la première valeur, le code comprend que j'ai sélectionné la 2ème valeur...

Précision importante, le champ utilisé dans ma requête ayant servi à remplir le combo n'admet pas la valeur nulle. Je ne peux donc pas "artificiellement" rajouter une ligne vierge dans ma table d'origine

Merci pour votre aide.

[tomlev]

Précision importante, le champ utilisé dans ma requête ayant servi à remplir le combo n'admet pas la valeur nulle. Je ne peux donc pas "artificiellement" rajouter une ligne vierge dans ma table d'origine

Dans la table en DB tu ne peux pas, mais tu peux l'ajouter à la DataTable. En supposant que tu aies 2 champs Id et Name, tu peux faire quelque chose comme ça :

Code :

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

1
2
3
4
5
Dim empty = table.NewRow()
empty("Id") = -1
empty("Name") = String.Empty
table.Rows.InsertAt(empty, 0)
empty.AcceptChanges()

Note l'utilisation de AcceptChanges : ça permet que la ligne ne soit pas considérée comme nouvelle, comme ça elle ne sera pas ajoutée à la DB si tu fais un Update sur la table.

[noftal]

Merci !
Je regarde ça et je te tiens au courant.

[noftal]

Bon alors en adaptant ta réponse à mon cas, j'obtiens ce code :

Code :

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

1
2
3
4
5
6
7
8
9
  Dim empty = Me.mondataset.ListeRégions.NewRow()
        empty("Région") = String.Empty
        Me.mondataset.ListeRégions.Rows.InsertAt(empty, 0)
        empty.AcceptChanges()
        With CB_Région
            .DataSource = Me.mondataset.ListeRégions
            .ValueMember = "Région"
            .DisplayMember = "Région"
        End With

Je peux donc continuer à lier par le code (mais pas par le designer) ma combobox à ma table.
Ca marche très bien effet. Je n'ai juste pas compris pourquoi on me refuse la syntaxe suivante :

Code :

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

If CB_Région.SelectedValue <>"" Then...

J'ai dû contourner en écrivant :

Code :

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

If CB_Région.SelectedIndex <> 0 Then...

Sinon, j'ai aussi trouvé une autre possibilité :

Code :

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

1
2
3
4
5
CB_Région
        CB_Région.Items.Add("")
        For Each item As DataRow In Me.mondataset.ListeRégions
        CB_Région.Items.Add(item(0))
        Next

Dans ce cas, il faut que je supprime toute utilisation du Datasource dans le code et dans le designer puisque je passe par les items, même si, sur le fond, cela revient au même (il y a bien un lien entre mon code et ma CB)
Toujours dans ce cas, il faut que je remplace toutes mes SelectedIndex par des SelectedItems.
Enfin, ce code semble plus court et marche aussi.

D'où ma question subsidiaire : Laquelle des 2 solutions est la meilleure sur le plan de la programmatique ?

[noftal]

Juste une correction de mon message précédent. Dans la 1ère solution les 5 dernières lignes de code peuvent aussi être remplacées par le designer.

Donc en longueur de code apparent c'est kif.
Ma question sur la comparaison entre les 2 solutions demeure en terme de philosophie de code.

[tomlev]

Je n'ai juste pas compris pourquoi on me refuse la syntaxe suivante :

Code :

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

If CB_Région.SelectedValue <>"" Then...

Moi non plus... cette syntaxe est pourtant valide. Qu'entends-tu par "refuse" ? Erreur de compilation ? Erreur à l'exécution ? Que dit le message d'erreur ?

[tomlev]

D'où ma question subsidiaire : Laquelle des 2 solutions est la meilleure sur le plan de la programmatique ?

Perso je préfère utiliser le binding, c'est plus propre. D'ailleurs c'est la seule façon de faire si la valeur n'est pas le texte affiché (comme dans mon exemple avec Id et Name)

[noftal]

Ben, je n'arrive plus à reproduire l'erreur. Tout marche à présent avec cette syntaxe. Ce devait être autre chose.

[noftal]

Perso je préfère utiliser le binding, c'est plus propre. D'ailleurs c'est la seule façon de faire si la valeur n'est pas le texte affiché (comme dans mon exemple avec Id et Name)

Bon alors je vais retenir ta solution. Merci !