Re: Table et non tableau croise

Posté par beber le 22/8/2006 18:41:41

tu mets çà ou ???

L_j est un entier
L_Nomzone est une chaîne
L_TestMax est un entier
T_Mnt01 est un entier
T_ZoneAff est une chaîne


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,indChamp}..Libellé=T_ZoneAff [L_j]
FIN