Bonjour tout le monde;
je travail avec D7, sgbd Paradox, (XDBGRID component v6)
Voilà avec cette procédure je devrai normalement selectionner plusieur champs a la fois de Table1 pour les inserer à Table2
mon probleme c'est que si je selectionne autant de champs à la fois et j'insere ca prend que le dernier enregistrement mais plutot
si je fais un par un tout fonctionne donc que manque t'il dans cette procédure

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure XDBGRIDFORM1.Button1Click(Sender: TObject);
var i:integer;
 
begin
 table1.open;
 table2.open;
 
                 with Table1 do
                 begin
                table2.insert;
 
                for i:=0 to fieldcount-1 do
                if table2.findfield(fields[i].fieldname)<>nil then
                table2.fieldvalues[fields[i].fieldname]:=fieldvalues[fields[i].fieldname];
 
                table2.fieldbyname('Nummdt').AsString:=e1.text;
                table2.fieldbyname('Annee').AsString:=cb1.text;
                table2.fieldbyname('Mois').AsString:=cb2.text;
                table2.fieldbyname('Motifmdt').AsString:=e2.text;
                table2.post;
                end;
                  end;
                    end.