Bonjour à tous
excuser , j'ai un état sur delphi (QuickReport) . J'ai placé 1 QRDBTex sur la bande detail et dans son évènement "OnPrint j'ai mis la requête suivante :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| procedure TF_list_controlemoyenne.QRDBText15Print(sender: TObject;
var Value: String);
begin
DM.ADOQuery49.CLose;
DM.ADOQuery49.SQL.Clear;
DM.ADOQuery49.SQL.Add('select MOYEN_MAT from moyenne');
DM.ADOQuery49.SQL.Add('where matricule_elev='+QuotedStr(DM.Q_list_controlemoyenne.FieldByName('matricule_elev').AsString));
DM.ADOQuery49.SQL.Add('and NUM_CLASSE='+QuotedStr(DM.Q_list_controlemoyenne.FieldByName('num_class').AsString));
DM.ADOQuery49.SQL.Add('and CODE_MAT='+DM.Q_list_controlemoyenne.FieldByName('code_mati').AsString);
DM.ADOQuery49.SQL.Add('and CODE_trimes='+DM.Q_list_controlemoyenne.FieldByName('code_trim').AsString);
DM.ADOQuery49.SQL.Add('and code_annee='+DM.Q_list_controlemoyenne.FieldByName('code_anne').AsString);
DM.ADOQuery49.OPen;
Value:=(DM.Q_list_controlemoyenne.FieldByName('COEFI').asinteger) * (FormatFloat('#,##.00',DM.Q_list_controlemoyenne.FieldByName('MOYEN_MAT'))).AsFloat;
DM.ADOQuery49.CLose;
end; |
à la compilation j'ai l'erreur suivante :"Types incompatibles Extended et TField" sur la ligne:
Value:=(DM.Q_list_controlemoyenne.FieldByName('COEFI').asinteger) * (FormatFloat('#,##.00',DM.Q_list_controlemoyenne.FieldByName('MOYEN_MAT'))).AsFloat;
j'avoue que j'ai pas pu corriger !
merci pour l'éclairage
Partager