Apprecor importe dans une table les champs identiques de l'enregistrement en cours d'une deuxième table

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 205 fois - Téléchargée 31 fois

Contenu du snippet

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 et ca peut servir.

Source / Exemple :


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 oldselect=select() dimension tab1(fcount(fic1)) dimension tab2(fcount(fic2)) for i=1 to alen(tab1) tab1[i]=field(i,fic1) next for j=1 to alen(tab2) tab2[j]=field(j,fic2) next select(fic1) append blank for i=1 to alen(tab2) toto=ascan(tab1,tab2[i]) if toto#0 cmd="replace "+fic1+"."+tab1[toto] +" with " +fic2+"."+tab2[i] if vartype(fic1+"."+tab1[toto])==vartype(fic2+"."+tab2[i]) &cmd endif endif next select (oldselect) return

Conclusion :


Salut à tous

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.