//Et voila mon code :
sReference est une chaîne sReference = NumériqueVersChaîne(REQ_Tarif.Atart) sTarif est une chaîne sTarif = NumériqueVersChaîne(REQ_Tarif.Atp01) SI PAS HExécuteRequête(REQ_Tarif) ALORS DélaiAvantFermeture(1000) Erreur("Problème d'initialisation de la requete",HErreurInfo()) SINON TableauSupprimeTout(TABLE_tarif) //ok HLitPremier(REQ_Tarif) TANTQUE PAS HEnDehors(REQ_Tarif) tableauAjouteLigne(TABLE_tarif,REQ_Tarif.Atart,REQ_Tarif.Atp01) HLitSuivant(REQ_Tarif) FIN FIN
sReference est une chaîne
sReference = NumériqueVersChaîne(REQ_Tarif.Atart)
TableSupprimeTout(TABLE_tarif)
//Ici on exécute la reqûete et on sort si une erreur est rencontrée.
SI PAS HExécuteRequête(REQ_Tarif) ALORS
DélaiAvantFermeture(1000)
Erreur("Problème d'initialisation de la requete",HErreurInfo())
Retour
Fin
//Ici on rempli ta table
TableSupprimeTout( TABLE_tarif )
Pour tous TABLE_tarif
TableAjouteLigne(TABLE_tarif,REQ_Tarif.Atart,REQ_Tarif.Atp01)
Fin
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4998&post_id=20636