i est un entier
// Mise à jour de la base fichier2
POUR i=1 _A_ TableOccurrence(TABLE_SansNom1)
TableSelectPlus(TABLE_SansNom1,i)
// Recherche l'enregistrement
HLitRecherchePremier ( fichier2, Ninscrp, TABLE_SansNom1.COL_Ninscr)
SI HTrouve () ALORS
fichier2.Ninscrp =TABLE_SansNom1.COL_Ninscr[i]
fichier2.gramm=TABLE_SansNom1.COL_gram[i]
fichier2.lecture=TABLE_SansNom1.COL_lecture[i]
fichier2.oral=TABLE_SansNom1.COL_Oral[i]
HModifie (fichier2)
SINON
fichier2.Ninscrp =TABLE_SansNom1.COL_Ninscr[i]
fichier2.gramm=TABLE_SansNom1.COL_gram[i]
fichier2.lecture=TABLE_SansNom1.COL_lecture[i]
fichier2.oral=TABLE_SansNom1.COL_Oral[i]
HAjoute(fichier2)
FIN
FIN
Partager