Discussion :

[James64]

Salut,

G une appli ou je transfert des données paradox(.db) vers une feuille XL.

Je traite les données par des calculs (pour des stats) avant de les transférer vers la feuille XL. Se créé pour cela une table temporaire ayant les memes champs que sous excel. Cette table est visible avant le transfert pour permettre des vérifications. Elle apparait dans un DBGrid a l'appel de cette fonction :

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
Function TExportPdoxExcelDlg.Execute: Boolean;
var
    erreur: boolean;
Begin
    erreur := false;
    ExportExcelDlg := TExportExcelDlg.Create(Application);  // Initialise la boite de dialogue
    Try
      With ExportExcelDlg do
      Begin
          LaTable := FTableDonnees;  // Renseigne la table à afficher
          LaSource := FSourceDonnees; // Renseigne le DataSource
          ListeDefaut.Assign(FListeDefaut); // Renseigne la liste des champs par défaut
      End;
      If Not Erreur then // Fait apparaitre la boite de dialogue s'il n'y a aucune erreur
      begin
          if ExportExcelDlg.LaTable.RecordCount >0 then
              Result := (ExportExcelDlg.ShowModal = MrOK)
          else
              form13.show; //fenetre message "pas d'enregistrements"
      end
      else
          Result := false; // Sinon renvoie Faux
    Finally
        ExportExcelDlg.Free; // Libère la boite de dialogue
    End;
End;

g un avertissement qui me dit : "La valeur de retour de la fonction 'TExportPdoxExcelDlg.Execute' peut être indéfinie"

D'ou ca vient?

Si vous avez une idée?

Merci

[Rayek]

Code :

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

1
2
3
4
5
 
if ExportExcelDlg.LaTable.RecordCount >0 then
              Result := (ExportExcelDlg.ShowModal = MrOK)
          else
              form13.show; //fenetre message "pas d'enregistrements"

Ca vient de la, dans le cas ou ExportExcelDlg.LaTable.RecordCount >= 0, tu affiches form13 mais tu donnes pas de valeurs de retour de ta fonction