Salut tout le monde du forum,

J'ai un problème avec un rapport des notes des étudiants de l'université et je réclame votre aide s'il vous plaît.

Mon problème, c'est que je suis en train de réaliser un rapport des relevés des notes d'un étudiant à l'université. J'utilise des champs comme "Matiere", "Session", "Note1", "Note2".

Je voudrais que si la session est 1, la note se trouve sous la Note1 dans le cas contraire sous la note2 ; mais ça n'a pas fonctionné. Tout dépend du dbgrid1 : si le curseur se focus dans un registre où la matière est de sessionI, dans le rapport toutes les notes se trouvent sous la Note1, dans le cas contraire sous la note2.

Voici mon code :

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
procedure TFRMPARA.Button1Click(Sender: TObject);
begin
FRMRELEVE.QuickRep1.DataSet:=ADOQuery1;
FRMRELEVE.QRDBText1.DataSet:= ADOQuery1;
FRMRELEVE.QRDBText1.DataField:='description' ;
 
// Inicializo
FRMRELEVE.QRDBText3.DataSet:= nil;
FRMRELEVE.QRDBText2.DataSet:= nil;
 
if ADOQuery1.FieldValues['cession'] ='II' then
begin
 
   FRMRELEVE.QRDBText3.DataSet:= ADOQuery1;
   FRMRELEVE.QRDBText3.DataField:='notetotal';
 
end
else
   if ADOQuery1.FieldValues['cession'] ='I' then
   begin
 
      FRMRELEVE.QRDBText2.DataSet:= ADOQuery1;
      FRMRELEVE.QRDBText2.DataField:='notetotal';
 
   end;