HExécuteRequêteSQL(rs,hRequêteDéfaut,sql)
TableSupprimeTout(table_secu)
HLitPremier(rs)
TANTQUE PAS HEnDehors(rs)
TableAjouteLigne(table_secu,rs.NS,rs.AS,rs.CS,rs.VS)
HLitSuivant(rs)
FIN
HExécuteRequêteSQL("rs",hRequêteDéfaut,sql)
TableSupprimeTout(table_secu)
HLitPremier("rs")
TANTQUE PAS HEnDehors("rs")
TableAjouteLigne(table_secu,rs.NS,rs.AS,rs.CS,rs.VS)
HLitSuivant("rs")
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=765&post_id=3014