Discussion :

[roubase]

Salut tout le monde j’ai le code suivant :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
procedure TForm4.Button1Click(Sender: TObject);
var Total :double ;
      j: Integer ;
      tableux : array[0..15]of string ;
      Mypage : TRavePage ;
      date1,date2 : string ;
 
begin
 
tableux[0]:='21-31';
tableux[1]:='22-31';
tableux[2]:='23-31';
tableux[3]:='21-33';
tableux[4]:='22-33';
tableux[5]:='23-33';
tableux[6]:='24-33';
tableux[7]:='21-34';
tableux[8]:='22-34';
tableux[9]:='23-34';
tableux[10]:='24-34';
tableux[11]:='25-34';
tableux[12]:='92-34';
tableux[13]:='94-34';
tableux[14]:='98-34';
tableux[15]:='21-35';
 date1:='01-02-2012';
 date2:='29-02-2012';
 table1.Filtered:=True;
Table1.Filter:='Date_demission>='+date1+'Date_demission<='+date2;
table1.Refresh;
table1.First;
while not table1.EOF do
for j:=0 to 15 do
begin
Total:=0;
table1.Filter:='Imputation='+QuotedStr(tableux[j]);
table1.Filtered:=True;
table1.Refresh;
//******** addition ******///
table1.First;
while not table1.EOF do
begin
   Total := Total + table1.FieldByName('Montant').AsFloat;
   table1.Next;
end;
 
With RvProject1.ProjMan  do
        begin
RvProject1.open;
MyPage := FindRaveComponent('Report1.Page1',nil) AS TRavePage ;
(FindRaveComponent('T'+ IntToStr(j) ,MyPage) AS TRaveText).Text := FloatToStr(Total);
 
        end;
 
end;
RvProject1.Execute;
end;

Il me génère cette erreur et je comprend pas ou est le problème !! aidez moi svp

Le projet Project1.exe a déclenché la classe d'exception EDatabaseError avec le message 'Expression filtre terminée incorrectement'.

[Andnotor]

Ton filtre est ainsi:

Date_demission>=01-02-2012Date_demission<=29-02-2012

Qu'en penses-tu ?

[jaduta]

Slt

comme l'indique Andnotor
La chaîne de caractère passée au filtre est mauvaise.

Essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Table1.Filter:='Date_demission>='+QuotedStr(date1)+' and Date_demission<='+QuotedStr(date2);

Attention au formatage de la date!!!
Il se peut que tu doives la formater en 'YYYY-MM-DD'

[roubase]

merci maitenant il me génère pas une erreur mail il fait pas le filtrage !!

J’ai un problème avec le filtre de date il ne prend pas les enregistrements entre l’intervalle entre les deux (date 1 et date 2 ) mai il me prend le tout je comprend pas pourquoi !!

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
 
edit1.Text:=date1;
edit2.Text:=date2;
 
//***************************************************
 
table1.Filter:='Date_demission>='+QuotedStr(date1)+'and'+' Date_demission<='+QuotedStr(date2);
table1.Filtered:=True;
while not table1.EOF do
for j:=0 to 15 do
begin
Total:=0;
table1.Filter:='Imputation='+QuotedStr(tableux[j]);
table1.Filtered:=True;
table1.Refresh;
//******** addition ******///
table1.First;
while not table1.EOF do
begin
   Total := Total + table1.FieldByName('Montant').AsFloat;
   table1.Next;
end;
matrice[j,indice]:=Total ;
With RvProject1.ProjMan  do
begin
RvProject1.open;
MyPage := FindRaveComponent('Report1.Page1',nil) AS TRavePage ;
(FindRaveComponent('T'+ IntToStr(j) ,MyPage) AS TRaveText).Text := FloatToStr(Total);
end;
end;

aidez moi svp

[SergioMaster]

La bonne solution serait (peut-être) de repenser la chose

Je vois qu'il s'agit en fait de faire un état Rave . Tout ce traitement pour obtenir une seule valeur et exécuter 16 états , il y a de quoi se

1. Tout d'abord rave peut faire se genre de calcul simplement en posant un CalcText
   
2. Ensuite Rave peut se charger de faire des groupes (les fameux tableux) ce qui permettrait de n'avoir qu'un seul état , pas 16

Quant aux dates ( je ne répéterai jamais assez que je hais les filtres ) table1 serait bien avantageusement remplacée par une query du genre

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
SELECT * FROM LATABLE
WHERE DATE_DEMISSION BETWEEN :DATE1 AND :DATE2
ORDER BY IMPUTATION       // ceci pour les groupes rave

Enfin , quant au code lui même , l'erreur vient du fait que le Filtre 2 (celui sur Imputation) écrase allègrement le Filtre1 (sur les dates)

[jaduta]

Slt,

il y a qqch qui m'ennuie dans ton code...
tu filtres la 1ère fois sur les dates
et ensuite, tu refiltres la table...
ce qui veut dire que tu annules ton 1er filtre

[Fxg]

Bonjour

En plus, il n'y a pas une petite inversion sur les affectations de Date1 et Date2 ?