TclientDataSet modification d'un champ
bonjour
je souhaite mettre à jour des champs d'un ClientDataSet avant son ouverture par :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
if CDS1.FindField('LieuEngCE').Size <> 100 then
begin
CDS1.FieldDefs.Delete(CDS1.FindField('LieuEngCE').Index);
with CDS1.FieldDefs.AddFieldDef do
begin
Name:= 'LieuEngCE';
DataType:= ftString;
Size:= 100;
end;
end;
if CDS1.FindField('PtEngCE').Size <> 100 then
begin
CDS1.FieldDefs.Delete(CDS1.FindField('PtEngCE').Index);
with CDS1.FieldDefs.AddFieldDef do
begin
Name:= 'PtEngCE';
DataType:= ftString;
Size:= 100;
end;
end;
if CDS1.FindField('LieuDegCE').Size <> 100 then
begin
CDS1.FieldDefs.Delete(CDS1.FindField('LieuDegCE').Index);
with CDS1.FieldDefs.AddFieldDef do
begin
Name:= 'LieuDegCE';
DataType:= ftString;
Size:= 100;
end;
end; |
pour le 3ème champ j'obtiens une erreur "un champ nommé "'LieuDegCE'" existe déjà ! alors que je l'ai supprimé par
CDS1.FieldDefs.Delete(CDS1.FindField('LieuDegCE').Index);
pour en créer un de valeur size = 100