Une façon différente de faire. En plaçant la structure des tables sources (t1,t2) dans des tables (tblStruc1,tblStruc2). J'ai pu me servir de fonctions native de Vfp (Index on, Set Relation to, Scan et Insert into) beaucoup plus performante que les Ascan(),les boucles for et les copies multiples de données. Par contre je ne crois pas mon code fonctionne pour les version 4 et moins. Me semble qu'il n'y a pas eu de version 4...
Code source :
= CrerTable()
= apprecor("t1","t2") * basé sur une idée d'Aumeric ******************** *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 ******************* Function apprecor Lparameters tcTbl1,tcTbl2
Local lcOldTbl,cmd
m.lcOldTbl = Alias()
Select(m.tcTbl2) CopyStructureExtendedTo tblStruc2 Use tblStruc2 In 0 Select tblStruc2 IndexOnAlltrim(field_name)+"."+field_type Tag fld
Select (m.tcTbl1) CopyStructureExtendedTo tblStruc1 Use tblStruc1 In 0 Select tblStruc1 SETRELATIONTO SETRELATIONTO ALLT(Tblstruc1.field_name)+"." +Tblstruc1.field_type INTO Tblstruc2 ADDITIVE SETSTEPON
cmd1 = ""