Discussion :

[nkcesar]

Bonjour à tous,
Comment faire si on veut afficher le N° de téléphone en plus du nom dans la zone répétée?
je fais ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sRecherche =sansespace(SAI_Contact)
SI sRecherche <> "" ALORS
	gtabContacts = ContactListe(Null, contactPrénom, sRecherche)
SINON	
	gtabContacts = ContactListe(Null)
FIN
 
SI gtabContacts.Occurrence > 0 ALORS
 
	POUR TOUT tContact DE gtabContacts	
		ZoneRépétéeAjouteLigne(ZR_Contacts,tContact.Prénom, tContact.Téléphone)
	FIN	
FIN

mais ça ne marche pas.

[nkcesar]

Comment faire si on veut afficher le N° de téléphone en plus du nom dans la zone répétée?
je fais ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sRecherche =sansespace(SAI_Contact)
SI sRecherche <> "" ALORS
	gtabContacts = ContactListe(Null, contactPrénom, sRecherche)
SINON	
	gtabContacts = ContactListe(Null)
FIN
 
SI gtabContacts.Occurrence > 0 ALORS
 
	POUR TOUT tContact DE gtabContacts	
		ZoneRépétéeAjouteLigne(ZR_Contacts,tContact.Prénom, tContact.Téléphone)
	FIN	
FIN

mais le prénom s'affiche mais le N° de Téléphone non, quelqu'un peut-il m'aider?

[tbc92]

Pour diagnostiquer ce qui ne va pas, ajoute en ligne 12 de ton code :

Code :

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

trace( tContact.Prénom, tContact.Téléphone )

Si le n° de téléphone s'affiche correctement dans la fenêtre de trace, alors le problème est dans l'instruction ZoneRépétéeAjouteLigne() ou la description de la Zone-Répétée.
Si le n° de téléphone ne s'affiche pas correctement, le problème est ailleurs.

[nkcesar]

En fait tContact.Téléphone est un tableau c'est pour cela que ça ne s'affichait pas. Voici ce que j'ai pour pouvoir l'afficher:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
sRecherche       = SansEspace(SAI_Contact)
gtabContacts est un tableau de Contacts
Tel est          un Téléphone
ZoneRépétéeSupprimeTout(ZR_Contacts)
// Récupération de la liste des contacts
SI sRecherche <> "" ALORS
	gtabContacts = ContactListe(Null, contactPrénom, sRecherche)
SINON	
	gtabContacts = ContactListe(Null)
FIN
 
SI gtabContacts.Occurrence > 0 ALORS
		// Ajout dans la zone répétée
	POUR TOUT tContact DE gtabContacts	
		POUR TOUT Tel DE tContact.Téléphone
			ZoneRépétéeAjouteLigne(ZR_Contacts,tContact.Prénom,Tel.Numéro)
		FIN
	FIN
FIN

Mais le remplissage de la zone répétée est très lent, quelqu'un peut-il m'aider à optimiser mon code?

[tbc92]

Suggestion : Le téléphone doit 'scroller' à chaque ligne que tu ajoutes, et c'est 'couteux' en CPU.

En visualBasic, on a couramment ce problème, et on ajoute des instructions Application.ScreenUpdating=False au début du traitement et Application.ScreenUpdatingTrue à la fin.

Ici, l'équivalent, c'est de masquer la ZoneRépétée pendant le traitement : ZR_Contacts..visible=Faux au début et ZR_Contacts..visible=Vrai à la fin