bonjour,


j'ai un problème dans l'exécution de mon programme lors de l'initialisation d'un composant ocx , en faite cette intialisation fait appel a une méthode d'une autre classe:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim rs As New ADODB.Recordset
		SSDBCombo1.RemoveAll()
		rs.Open("select  * from employer order by matricule", cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly)
		While Not rs.EOF
            SSDBCombo1.AddItem(rs.Fields("matricule").Value & ";" & rs.Fields("nom").Value & ";" & rs.Fields("prenom").Value & ";" & rs.Fields("sexe").Value & ";" & rs.Fields("etat_civil").Value & ";" & rs.Fields("Position").Value & ";" & rs.Fields("Date_Embauche").Value & ";" & Per.Nomsociete(rs.Fields("Societe").Value) & ";" & IIf(rs.Fields("resiliation").Value = 0, "non", "oui"))
			rs.MoveNext()
		End While


l'appel de la methode s'effectue dans l'instruction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Per.Nomsociete(rs.Fields("Societe").Value)
le programme ne continu pas l'exécution de la boucle while ???? lorsqu'il appel cette méthode

merci de m'aider