Discussion :

[medreg]

Bonjour à tous
J'ai un problème à traiter avec des champs vides pendant le processus de la collecte des valeurs à l'intérieur les
Comment puis-je mettre le programme solution du problème ne sera même pas me montrer un message d'erreur comme celui-ci

C'est le code source joint à vous pour les informer de tous les aspects du code
Et de me donner des conseils et des commentaires
Si possible, s'il vous plaît de le modifier

Version de delphi7
base des données = Absolute database
Je vous souhaite bonne chance

[Just-Soft]

Bonjour

j'ai modifié quelques trucs dans ton source mais sans tester car j'ai pas absolute database

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
procedure TForm1.BitBtn18Click(Sender: TObject);
var 
	sbrut1,sbrut2 : real;
begin
  // initialisation
  sbrut1 := 0; 
  sbrut2 := 0;
  with DM do 
  begin
    T1.First;
    while not T1.Eof do 
	begin
      //T1.edit;
	  if T1.FieldValues['CDE'] in [1..4] then 
	  begin 
		sbrut1 := T1.FieldValues['Montant'] + sbrut1;
      end;
      //T1.Post;
	  //T1.Edit;
	  if T1.FieldValues['CDE'] in [5..7] then 
	  begin
        sbrut2 := T1.FieldValues['Montant'] + sbrut2;
        //T1.Post;
      end;
    T1.Next;
    end;
	// puisque j'ai pas absolute database et que je connais pas la structure de tes tables
	// j'affiche les résultats sur la console rien que pour voir
	ShomMessage(FloattoStr(sbrut1));
	ShomMessage(FloattoStr(sbrut2));
    T2.Edit;
    T2.FieldValues['TO1'] := sbrut1;
    T2.FieldValues['TO2'] := sbrut2;
    T2.Post;
  end;
end;

[medreg]

Bonjour

j'ai modifié quelques trucs dans ton source mais sans tester car j'ai pas absolute database

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
procedure TForm1.BitBtn18Click(Sender: TObject);
var 
	sbrut1,sbrut2 : real;
begin
  // initialisation
  sbrut1 := 0; 
  sbrut2 := 0;
  with DM do 
  begin
    T1.First;
    while not T1.Eof do 
	begin
      //T1.edit;
	  if T1.FieldValues['CDE'] in [1..4] then 
	  begin 
		sbrut1 := T1.FieldValues['Montant'] + sbrut1;
      end;
      //T1.Post;
	  //T1.Edit;
	  if T1.FieldValues['CDE'] in [5..7] then 
	  begin
        sbrut2 := T1.FieldValues['Montant'] + sbrut2;
        //T1.Post;
      end;
    T1.Next;
    end;
	// puisque j'ai pas absolute database et que je connais pas la structure de tes tables
	// j'affiche les résultats sur la console rien que pour voir
	ShomMessage(FloattoStr(sbrut1));
	ShomMessage(FloattoStr(sbrut2));
    T2.Edit;
    T2.FieldValues['TO1'] := sbrut1;
    T2.FieldValues['TO2'] := sbrut2;
    T2.Post;
  end;
end;

merçi pour tout
mais
Il y avait une erreur
Voir l'image


Ceci a causé l'erreur

[Erreur] Unit1.pas(54): Types incompatibles : 'Variant' et 'Integer'

[Just-Soft]

Salut

utilises à la place une autre forme du genre :

T1CDE.Value