L'auteur eric leissler France Membre Simple # 0000002784 enregistré le 06/03/2010 http://www.aumeric.fr 68 ans LEISSLER Eric 85290 MORTAGNE SUR SEVRE de la société AUMERIC LOGICIELS Fiche personnelle
APPRECOR importe les champs de l'enregistrement courant d'une table dans une autre table
# 0000000128
ajouté le 24/12/2004 08:00:34 et modifié le 09/08/2011
consulté 8848 fois
Niveau
débutant
Dans vfp, la commande append from importe tous les enregistrements d'une table. Apprecor fonctionne de la même manière, mais en n'important que l'enregistrement en cours.
C'est pas grand chose, mais j'en ai eu besoin alors je me dis que cela peut peut être servir.
Bon Noël et Bonne ANNEE 2005
Code source :
function apprecor(fic1,fic2) ******************** *AUMERIC : *Cette fonction permet d'importer dans la table fic1 , l'engeristrement en cours de la table fic2 *Les champs identiques (noms et structures, sont importés * les deux tables doivents être ouvertes ******************* local tab1,tab2,nfich1,nfich2,i,j,k,toto,cmd local oldselect
for i=1 toalen(tab1) tab1[i]=field(i,fic1) next for j=1 toalen(tab2) tab2[j]=field(j,fic2) next select(fic1) appendblank for i=1 toalen(tab2)
toto=ascan(tab1,tab2[i]) if toto#0
cmd="replace "+fic1+"."+tab1[toto] +" with " +fic2+"."+tab2[i] ifvartype(fic1+"."+tab1[toto])==vartype(fic2+"."+tab2[i])
&cmd endif endif next
Retour à la liste
France
Fiche personnelle
Note des membres
Niveau
débutant