Remplir plusieurs combobox

Version imprimable

Bonjour,

J'aimerais remplir plusieurs ComboBox ayant pour nom UC1, UC2, UC3 avec une boucle du style:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
For i = 1 To 3
 
            strSql = "SELECT..........."            
            INITALISATION DE LA BASE   
            ...
 
            If Donnee.Rows.Count Then                 
            For Each ligne In Donnee.Rows
                    UCi.DisplayMember = "DESIGNATION"
                    UCi.ValueMember = "ID_DESIGN"
                    UCi.DataSource = Donnee
            Next

Commen faire pour nomer mes combobox UCi

Merci d'avance

J'ai tenté ce code :
Code:

1 2 3 4 Me.Controls("UC" & i).DisplayMember = "DESIGNATION" Me.Controls("UC" & i).ValueMember = "ID_DESIGN" Me.Controls("UC" & i).DataSource = Donnee
Mais on me dit que DisplayMember n'est pas un membre de control

Comme cela ;)

Code:

1
2
3
4
5
For each UCi as ComboBox in Me.Controls
      UCi.DisplayMember = "DESIGNATION"
      UCi.ValueMember = "ID_DESIGN"
      UCi.DataSource = Donnee
Next

07/07/2007, 18h50
SoGood

Merci pour ce code mais j'ai toujour le meme probleme.

Code:

For each UCi as ComboBox in Me.Controls]

i est une variable
UC un Controle
Comment faire pour que UC = UC & i
et ainsi avoir UC1, UC2, UC3
07/07/2007, 20h12
Aspic

Tu n'as pas compris le role de mon code.

Mon code va lister toutes les combobox de ta form (UC1, UC2, UC3... UCi) donc c'est exactement ce que tu voulais faire !
07/07/2007, 23h04
SaumonAgile
Citation:
Envoyé par SoGood

J'ai tenté ce code :

Code:

1 2 3 4 Me.Controls("UC" & i).DisplayMember = "DESIGNATION" Me.Controls("UC" & i).ValueMember = "ID_DESIGN" Me.Controls("UC" & i).DataSource = Donnee

Mais on me dit que DisplayMember n'est pas un membre de control
Il faut que tu castes le retour de Me.Controls("...") en un ComboBox et ensuite tu pourras utiliser les propriétés DisplayMember, etc...
08/07/2007, 17h44
SoGood

Je n'arrive pas a faire un cast sur le Me.Controls("..."), peux tu me mettre sur la voie.

Merci
08/07/2007, 18h30
Aspic
Citation:

Envoyé par SoGood

Je n'arrive pas a faire un cast sur le Me.Controls("..."), peux tu me mettre sur la voie.

Merci

Tu veux bien affecter à toutes tes combobox la valeur de DESIGNATION en DisplayMember, la valeur de DESIGN en DesignMember et la variable Donnee
à datasource ?

SI oui, alors ce code fais exactement cela :
Code:

1 2 3 4 5 For each UCi as ComboBox in Me.Controls UCi.DisplayMember = "DESIGNATION" UCi.ValueMember = "ID_DESIGN" UCi.DataSource = Donnee Next
08/07/2007, 18h51
SoGood
Merci pour ton aide, mais il semblerai que tu n'ai pas compris ma question.
Toute mes ComboBox ne s'appellent pas UCi mais j'ai UC1, UC2, UC3 ...
Et mon problème c'est que je ne parviens pas a concaténer du style UC = "UC" & i
Code:

1 2 3 For each UC as ComboBox in Me.Controls ...
08/07/2007, 19h28
Aspic

C'est toi, tu ne comprends pas l'interet de mon code ;)

Biensur que toutes tes combobox ne s'appellent pas UCi mais teste mon code et tu verras que ca marche ! Je n'arrive pas à t'expliquer ce que fais mon code exactement... ca liste en gros toutes les combobox de ta form donc ca va affecter ta Uc1, uc2, Uc3....
08/07/2007, 19h37
SoGood

Je suis désole, je l'ai testé en long en large et en travers et il ne marche pas.

La dernière erreur retournée est :
"Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.Button' en type 'System.Windows.Forms.ComboBox'."
08/07/2007, 19h39
Aspic
Citation:

Envoyé par SoGood

Je suis désole, je l'ai testé en long en large et en travers et il ne marche pas.

La dernière erreur retournée est :
"Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.Button' en type 'System.Windows.Forms.ComboBox'."

Fallait le dire ! ;)

Correction :
Code:

1 2 3 4 5 6 7 For each UCi as Control in Me.Controls If TypeOf Uci is ComboBox Then UCi.DisplayMember = "DESIGNATION" UCi.ValueMember = "ID_DESIGN" UCi.DataSource = Donnee End If Next

Ca marche !!!!
Mon probleme venait du fait que mes ComboBox etaient englobées par un GroupBox.

La solution qui peut servir a d'autre :
Code:

1 2 3 4 CType(Me.Controls("UC" & i), ComboBox).DisplayMember = "DESIGNATION" CType(Me.Controls("UC" & i), ComboBox).ValueMember = "ID_DESIGN" CType(Me.Controls("UC" & i), ComboBox).DataSource = Donnee