Discussion :

[Comete2006]

Bonjour à tous
Je débute dans Delphi et je rencontre des difficultés
J'ai des valeurs dans un dbGrid
Je souhaite pouvoir sélectionner une ligne de ce DBGrig pour entrer les valeurs dans une autre fenêtre de mon application
J ai un message d'erreur "Impossible de convertir le variant de type (String) en type (Double)
J'ai cherché sans succès dans l'aide :-(

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
procedure TFrmTableauIncident.DBGrid1CellClick(Column: TColumn);
Begin
  if DBGrid1.SelectedRows.Count > 0 then
  begin
    FrmIncident.DateTimePicker1.date:= DBGrid1.Fields[0].Value;
    FrmIncident.DateTimePicker3.Time:= DBGrid1.Fields[1].Value;
    FrmIncident.CheckBoxEleve.checked := DBGrid1.Fields[3].Value;
    FrmIncident.CheckBoxMajeur.checked := DBGrid1.Fields[4].Value;
    FrmIncident.ComBoBoxSite.Text := DBGrid1.Fields[5].value;
    FrmIncident.ComBoBoxSite.Text := DBGrid1.Fields[6].value;
    FrmIncident.CheckBoxTousSites.checked := DBGrid1.Fields[6].Value;
    FrmIncident.ComboBoxService.text := DBGrid1.Fields[7].Value;
    FrmIncident.CheckBoxTousServices.checked := DBGrid1.Fields[8].Value;
    FrmIncident.showmodal;
end;
end;

Quelqu'un peut-il m'aider ? Un très grand merci par avance

[ShaiLeTroll]

Vous n'avez pas un décalage des numéros ? il n'y a pas de [2] ?
Utilisez FieldByName et plutôt AsString, AsDateTime au lieu des variants.

[Comete2006]

Merci pour votre retour
Je teste demain et je reviens vers vous
Bonne soiree

[Comete2006]

Vous n'avez pas un décalage des numéros ? il n'y a pas de [2] ?
Utilisez FieldByName et plutôt AsString, AsDateTime au lieu des variants.

Merci !

En effet, j avais un décalage de numéro J ai corrigé

J ai tenté de modifier mon cade mais sans succès J'ai des erreur "Identificateur non déclaré FieldByName ..."

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
procedure TFrmTableauIncident.BtnCloturerIncidentClick(Sender: TObject);
Begin
if DBGrid1.SelectedRows.Count > 0 then
  begin
 
    FrmIncident.DateTimePicker3.Time:= DBGrid1.FieldByName[1].AsDateTime;
    FrmIncident.CheckBoxEleve.checked := DBGrid1.FieldByName[2].AsDateTime;
    FrmIncident.CheckBoxMajeur.checked := DBGrid1.FieldByName[3].AsString;
    FrmIncident.ComBoBoxSite.Text := DBGrid1.FieldByName[4].AsString;
    FrmIncident.CheckBoxTousSites.checked := DBGrid1.FieldByName[5].AsString;
    FrmIncident.ComboBoxService.text := DBGrid1.FieldByName[6].AsString;
    FrmIncident.CheckBoxTousServices.checked := DBGrid1.FieldByName[7].AsString;
    FrmIncident.ShowModal;
  end;
end;

[SergioMaster]

Bonjour,

Qu'il y ait des erreurs c'est logique un DBGrid n'a pas de FieldByName c'est son datasource associé qui en a.

Je suis assez rouillé avec VCL. mais je releve d'abord une chose qui me parait incorrecte

Code :

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

1
2
3
4
if DBGrid1.SelectedRows.Count > 0 then
  begin
   ....
  end;

Tester sur SelectedRows.Count implique généralement que une ou plusieurs ligne de la grille sont sélectionnées et donc on debrait avoir à l'intérieur un traitement de chaque ligne de la sélection du type

Code :

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

1
2
3
for i:=0 to DBGrid1.SelectedRows.Count-1 do 
 begin // traitement 
end;

Si je comprend bien l'image numero 1 c'est plutôt l'enregistrement en cours qui est à cloturé (mettre les options de grille dgRawSelected et dgAlwaysShowSelection serait un plus permettant de bien montrer la ligne)
Dans ce cas il est plus simple d'utiliser directement les champs du dataset que de faire une assignation possible mais alambiquée

Attention ce qui suivra n'est pas forcément juste ne connaissant pas la structure de ClientDataset1, de plus je ne me souviens jamais si Fields commence à 0 ou 1

Code :

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

1
2
3
4
5
6
7
FrmIncident.DateTimePicker3.Time:=ClientDataset1.Fields[1].AsDateTime;
FrmIncident.CheckBoxEleve.checked := ClientDataset1.Fields[2].AsBoolean;
FrmIncident.CheckBoxMajeur.checked := ClientDataset1.Fields[3].AsBoolean;
FrmIncident.ComBoBoxSite.Text := ClientDataset1.Fields[4].AsString;
FrmIncident.CheckBoxTousSites.checked := ClientDataset1.Fields[5].AsBoolean;
FrmIncident.ComboBoxService.text := ClientDataset1.Fields[6].AsString;
FrmIncident.CheckBoxTousServices.checked := ClientDataset1.Fields[7].AsBoolean;

De plus je suis plus partisan, pour des questions de maintenance logicielle, d'utiliser FieldByName car l'ordre des champs (trop ?) est facilement modifiable

Code :

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

FrmIncident.DateTimePicker3.Time:=ClientDataset1.FieldByName('nomdelacolonne').AsDateTime;

enfin les champs sont-ils des booleens ? pas sûr je lis true/false dans la grille (tiens, Carquefou, j'en suis pas loin)
donc pour les checkbox*

Code :

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

FrmIncident.CheckBoxEleve.checked := ClientDataset1.FieldbyName('nomcolonnesbool').AsString='true';

* les versions récentes permettent de transformer 'true'/'false' en boolean mais sans votre version j'écris un "traitement" sûr

[Comete2006]

Merci infiniment ! : ca fonctionne :-)

Je sélectionne une ligne dans mon "dbgrid" et toutes les valeurs se mettent dans mon "frmincident"

Par contre, les champs date et l heure ne prennent pas les valeurs du DBGrid
Pas de message mais rien ne se passe

Code :

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

1
2
FrmIncident.DateTimePicker1.Time:=ClientDataset1.Fields[0].AsDateTime;
FrmIncident.DateTimePicker3.Time:=ClientDataset1.Fields[1].AsDateTime;

Version Delphi 10.4

[SergioMaster]

En rouge, je vous mets sur la piste

Code :

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

FrmIncident.DateTimePicker1.Time:=ClientDataset1.Fields[0].AsDateTime;

NB. je ne suis toujours pas très Fields[n]

comme a priori, toujours selon votre image le datetimepicker1 est pour la date

Code :

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

FrmIncident.DateTimePicker1.DateTime:=ClientDataset1.Fields[0].AsDateTime;

comme il semblerait que vos colonnes soit des strings ceci serait plus sûr

Code :

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

1
2
FrmIncident.DateTimePicker1.Date:=StrToDate(ClientDataset1.Fields[0].AsString);
FrmIncident.DateTimePicker3.Time:=StrToTime(ClientDataset1.Fields[1].AsString);