Discussion :

[gogolak]

Bonjour,

Je sais remplir une liste déroulante à partir d'une liste que je rentre en dure dans le programme.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Ouvre la connexion à la base distante SQLServer
objServerSql.Connexion()
 
'Charge les informations nécessaires au remplissage de la combobox
Dim ListLabel() As String = {"Payant", "Gratuit", "Payant + gratuit"}
Dim ListCode() As String = {"1", "0", "2"}
cmbModeFacturation.ValueMember = "ListCode"
cmbModeFacturation.DataSource = ListLabel
 
'Ferme la connexion à la base distante SQLServer
objServerSql.Deconnexion()

Je sais remplir une liste déroulante à partir des enregistrements d'une BDD.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Ouvre la connexion à la base distante SQLServer
objServerSql.Connexion()
 
'Charge les informations nécessaires au remplissage de la combobox
ds = objServerSql.Dataset("SELECT DISTINCT L.Cod_Livraison, L.Livraison FROM TBL_LIVRAISON L", "Livraison", "TBL_LIVRAISON")
dsTable = ds.Tables("TBL_LIVRAISON")
cmbCanalDistribution.DisplayMember = "Livraison"
cmbCanalDistribution.ValueMember = "Cod_Livraison"
cmbCanalDistribution.DataSource = dsTable
 
'Ferme la connexion à la base distante SQLServer
objServerSql.Deconnexion()

Mais je ne sais pas comment remplir une liste déroulante avec les enregistrements d'une BDD en y ajoutant un champ supplémentaire en dure.

Par exemple, dans la deuxième partie de mon code, la liste déroulante contient tous les modes de livraison contenu dans la BDD. Je voudrais rajouter un champ "TOUS" dans la liste déroulante, est-ce possible? et si oui, comment fait-on?

[HULK]

une fois que tu as rempli ta combobox tu fais :

Code :

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

1
2
 
combobox.Items.Insert(1,"TOUS")

[gogolak]

J'ai déjà essayé cette solution mais malheuresement c'est impossible de modifier la collection items lorsque la propriété datasource est défini.

J'ai bien peur que si on rempli un combobox par l'intermédiaire d'un datasource, on ne peut plus rien y ajouter!

[neguib]

Certes mais rien n'empêche d'intervenir en amont en intervenant directement sur dsTable par exemple avant de la lier en DataSource

[gogolak]

Je pense que c'est la solution mais pourriez-vous me dire comment intervenir sur dsTable?

[HULK]

ca doit etre un truc du genre :

Code :

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

1
2
3
4
5
6
 
Dim TOUS As DataRow = TonDataSet.Tables("TonDataTable").NewRow
 
TOUS("NomDuChampDuDataTable") = "TOUS"
 
TonDataSet.Tables("TonDataTable").Rows.InsertAt(TOUS, 1)

[gogolak]

Bonjour,

Je reviens sur le développement de mon petit applicatif aprés avoir passé du temps sur un autre projet.

ca doit etre un truc du genre :

Code:

Dim TOUS As DataRow = TonDataSet.Tables("TonDataTable").NewRow
TOUS("NomDuChampDuDataTable") = "TOUS"
TonDataSet.Tables("TonDataTable").Rows.InsertAt(TOUS, 1)

Ca fonctionne!!! C'est exactement ce que je voulais!

Merci beaucoup HULK et neguib, vous m'avez bien aidé sur ce coup là!

Thanks!