POUR i = 1 A nbocc
//On affecte les colonnes aux différentes infos de LIGNEDEVIS
TableSelectPlus(Frm_Devis.Tab_Détail,i)
LIGNEDEVIS.IDDEVIS=numdev
LIGNEDEVIS.PrixTotalLigne=Frm_Devis.Tab_Détail.Prix_Total[i]
LIGNEDEVIS.PuLigne=Frm_Devis.Tab_Détail.PU[i]
LIGNEDEVIS.QteLigne=Frm_Devis.Tab_Détail.Quantité[i]
LIGNEDEVIS.DesignationLigne=Frm_Devis.Tab_Détail.Designation[i]
LIGNEDEVIS.UniteLigne=Frm_Devis.Tab_Détail.Unité[i]
//On ajoute les infos dans LIGNDEVIS
HAjoute(LIGNEDEVIS)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=570&post_id=2132