j'ai une boucle :
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
29
30
31
32
33
34
35
36
37
38
39
    ORATable.close;
    article.first;
    ORATable.TableName:='consolide.article';
    label2.Caption:='Article';
    ORATable.Open;
    progress2.PartsComplete:=0;
    progress2.TotalParts:=ARTICLE.RecordCount;
    progress2.Visible:=true;
    while not article.Eof do
      begin
        ORATable.Append;
        ORATable.FieldByName('ARTCOD').AsString:=article.FieldByName('ARTCOD').AsString;
        ORATable.FieldByName('MRQCOD').AsString:=article.FieldByName('MRQCOD').AsString;
        ORATable.FieldByName('UNICOD').AsString:=article.FieldByName('UNICOD').AsString;
        ORATable.FieldByName('MGSCOD').AsString:=article.FieldByName('MGSCOD').AsString;
        ORATable.FieldByName('ARTDES').AsString:=article.FieldByName('ARTDES').AsString;
        ORATable.FieldByName('ARTORG').AsString:=article.FieldByName('ARTORG').AsString;
        ORATable.FieldByName('ARTCAR').AsString:=article.FieldByName('ARTCAR').AsString;
        ORATable.FieldByName('ARTMAX').AsFloat:=article.FieldByName('ARTMAX').AsFloat;
        ORATable.FieldByName('ARTMIN').AsFloat:=article.FieldByName('ARTMIN').AsFloat;
        ORATable.FieldByName('ARTPRX').AsFloat:=article.FieldByName('ARTPRX').AsFloat;
        ORATable.FieldByName('ARTDEV').AsFloat:=article.FieldByName('ARTDEV').AsFloat;
        ORATable.FieldByName('ARTENTD').AsDateTime:=article.FieldByName('ARTENTD').AsDateTime;
        ORATable.FieldByName('ARTENTQ').AsInteger:=article.FieldByName('ARTENTQ').AsInteger;
        ORATable.FieldByName('ARTSORD').AsDateTime:=article.FieldByName('ARTSORD').AsDateTime;
        ORATable.FieldByName('ARTSORQ').AsInteger:=article.FieldByName('ARTSORQ').AsInteger;
        ORATable.FieldByName('ARTQTE').AsInteger:=article.FieldByName('ARTQTE').AsInteger;
        ORATable.FieldByName('ARTCAS').AsString:=article.FieldByName('ARTCAS').AsString;
        //ORATable.FieldByName('ARTTPV').AsString:=article.FieldByName('ARTTPV').AsString;
        //ORATable.FieldByName('ARTRTGD').AsDateTime:=article.FieldByName('ARTRTGD').AsDateTime;
        //ORATable.FieldByName('ARTRTGQ').AsInteger:=article.FieldByName('ARTRTGQ').AsInteger;
        //ORATable.FieldByName('ARTREFD').AsDateTime:=article.FieldByName('ARTREFD').AsDateTime;
        //ORATable.FieldByName('ARTREFQ').AsInteger:=article.FieldByName('ARTREFQ').AsInteger;
        ORATable.Post;
        progress.IncPartsByOne;
        progress2.IncPartsByOne;
        article.Next;
        Application.ProcessMessages;
      end;
quand le pourcentage de progression atteint 7% un message d'erreur qui apparait : (une opération en plusieurs etatpes a généré des erreurs, vérifier chaque valeur d'etat), quelqu'un peut m'expliquer qu'est ce que ça veut dire ce message dc'erreur, ça a marché avant sans pb