Problème lors de transposition de table
Bonjour, je dois retailler une zone d'un fichier pour l'allonger. Je procède donc par duplication des données dans une table en sortie retaillée mais j'ai un souci avec une zone date qui passe mal dans certains cas. A première vue elle contient bien une date mais le format coince quelque part. Le pire c'est que c'est infime genre une date sur 80.000 mais elle génère le plantage et il faut que je la retape manuellement pour que ça passe.
Quelqu'un aurait-t-il une solution pour contourner le problème ? Merci d'avance pour votre aide
Bonne fin de journée
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
| try
While not TableIn.Eof do
begin
TableOut.Append;
For NbChamp := 0 to TableIn.Fields.Count - 1 do
begin
if Not (TableIn.Fields[NbChamp].DataType = ftAutoInc) then
begin
NomChamp := TableIn.Fields[NbChamp].FieldName;
If TableOut.FindField(TableIn.Fields[NbChamp].FieldName) <> Nil then
TableOut[NomChamp] := TableIn[NomChamp];
end;
end;
try
TableOut.Post;
except
on E:Exception do
begin
MessageBox(Application.Handle,
Pchar('Erreur lors de l''enregistrement dans la base ' + TableOut.TableName + #13 +
E.Message),
'Transposition',
MB_OK or MB_ICONHAND);
Exit;
end;
end;
TableIn.Next;
end; |
