Discussion :

[SoGood]

Bonjour,

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

Code :

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

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

[SoGood]

J'ai tenté ce code :

Code :

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

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

[Aspic]

Comme cela

Code :

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

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

[SoGood]

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

Code :

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

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

[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 !

[SaumonAgile]

J'ai tenté ce code :

Code :

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

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

[SoGood]

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

Merci

[Aspic]

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 :

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

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

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

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

1
2
3
 
For each UC as ComboBox in Me.Controls
...

[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....

[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'."

[Aspic]

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 :

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

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

[SoGood]

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 :

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

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