ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

APPRECOR importe les champs de l'enregistrement courant d'une table dans une autre table   


L'auteur

eric leissler
France France
Membre Simple
# 0000002784
enregistré le 06/03/2010
http://www.aumeric.fr
67 ans
LEISSLER Eric
85290 MORTAGNE SUR SEVRE
de la société AUMERIC LOGICIELS
Fiche personnelle

Note des membres
pas de note

Contributions > 01 - PRG : Programmation > Import - Export

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é 8462 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0
VFP 3.0
FPW 2.6
Description
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

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
Commentaires
Aucun commentaire enregistré ...
Publicité

Les pubs en cours :
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3