// Suppression des éléments de la table
// ================================
TableSupprimeTout(Table1)
// Suppression des colonnes variables
// ================================
POUR L_j=2 A 20
L_Nomzone="T_Mnt"+NumériqueVersChaîne(L_j,"02d")
SI ChampExiste(L_Nomzone) ALORS
ChampSupprime(L_Nomzone)
FIN
FIN
// Gestion des colonnes de la table
// ================================
POUR L_j=1 A L_TestMax
L_Nomzone="T_Mnt"+NumériqueVersChaîne(L_j,"02d")
SI PAS ChampExiste(L_Nomzone) ALORS
ChampClone(T_Mnt01,L_Nomzone)
FIN
{L_Nomzone}..Libellé=T_ZoneAff[L_j]
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3779&post_id=15923