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 : 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
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;
Partager