Discussion :

[chapeau_melon]

Bonjour,

Je n'arrive pas à créer ce combo:

J'ai deux fichiers. Chacune d'elle à la rubrique Model_Number.
Le combo doit afficher la liste complète de tout les Model_Number des deux fichiers.

J'ai essayer avec union entre deux requêtes mais cela ne fonctionne pas ??

D'autres solutions ?

Bav

[Le Shadow]

Remplis-la manuellement avec listeajoute(), en parcourant tes 2 fichiers un après l'autre..

[chapeau_melon]

ok merci, question stupide, comment lire tout les enregistrements d'un fichier, sur une rubrique spécifique.

Et comment les transvaser vers listeajoute

J'avoue que je patoge un peu avec mes combo

BAT

[Jannus]

Comme Le Shadow te l'a dit, si tu veux ajouter tous les enregistrements à une combo, tu parcours tous le fichier et tu ajoutes à la combo avec ListeAjoute()

Code :

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

1
2
3
4
5
HLitPremier(NomFichier,NomRubrique)
TANTQUE PAS HEnDehors(NomFichier)
	ListeAjoute(NomCombo,Nom.Rubrique)
	HLitSuivant(NomFichier,NomRubrique)
FIN

Et tu recommences pour le second fichier

[chapeau_melon]

OK super.

J'ai un dernier souci, je constate que le combo est rempli de 3172 enregistrements. Ce qui est correcte MAIS elles ne sont pas visibles ?

BAV

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Model_Number est une chaîne 
HExécuteRequête(REQ_leads_PM_list)
HLitPremier(REQ_leads_PM_list,Model_Number)
TANTQUE PAS HEnDehors(REQ_leads_PM_list)
    ListeAjoute(COMBO_Pacemaker_typenr,Model_Number)
    HLitSuivant(REQ_leads_PM_list,Model_Number)
FIN
HExécuteRequête(REQ_leads_ICD_list)
HLitPremier(REQ_leads_ICD_list,Model_Number)
TANTQUE PAS HEnDehors(REQ_leads_ICD_list)
    ListeAjoute(COMBO_Pacemaker_typenr,Model_Number)
    HLitSuivant(REQ_leads_ICD_list,Model_Number)
FIN

[Jannus]

Qu'est-ce que ta requete vient faire dans ce code ?
Si tu dois ajouter tous les enregistrements, pas besoin de requete

[chapeau_melon]

Même chose

Nombre correct mais invisible ?

BAT

[Le Shadow]

Code :

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

1
2
3
4
5
6
HExécuteRequête(REQ_leads_ICD_list)
HLitPremier(REQ_leads_ICD_list,Model_Number)
TANTQUE PAS HEnDehors(REQ_leads_ICD_list)
    ListeAjoute(COMBO_Pacemaker_typenr,Model_Number)
    HLitSuivant(REQ_leads_ICD_list,Model_Number)
FIN

C'est normal... tu dois avoir un champ dans ta fenetre qui a le nom 'model_number'... pour chaque occurence de tes requetes (ou parcours de fichier) tu ajoute a ta combo la valeur de ton champ vide...

tu devrais plutot y inscrire

Code :

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

ListeAjoute(COMBO_Pacemaker_typenr,REQ_leads_ICD_list.Model_Number)

[chapeau_melon]

OK compris