Discussion :

[rxseac]

Bonjour,

Est-il possible de rendre une ligne complète d'un dbgrid non modifiable suivant la valeur d'une colonne ?

un truc du genre

Code :

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

1
2
3
4
 
  If Dataset1.FieldByName('Total').AsFloat = 0 Then
     DBGrid.CurrentRow.enabled := False;
     End;

Merci

[Tardiff Jean-François]

Bonjour,

Comme personne n'a l'air d'avoir de meilleur idée que mois, je me lance.

Je verrais 2 solutions a votre problème.

Dans les évenements OnCellExit/OnCellenter de la DBGrille, vous pouvez autoriser ou interdire la modification de toute la grille.

sur l'évènement Onchange du atasource de la grille, vous pouvez fair de même.

Désolé, je n'ai pas mieux.

[aityahia]

dans l'évènement OnCellEnter

Code :

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

1
2
3
4
If Dataset1.FieldByName('Total').AsFloat = 0 Then
      DBGrid1.Options:=   DBGrid.Options-dgEditing
  else
     DBGrid1.Options:=   DBGrid.Options+dgEditing;

ça doit être ça j'ai pas delphi sous ma main.

@+ aityahia

[Zatoobux]

salut,

perso, je bloque au niveau du DataSet dans l'evenement BeforeEdit ou BeforeDelete. Permet d'ajouter un message si nécessaire.

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure Dataset1.BeforeEdit (Dataset: TDataset);
begin
  If Dataset1.FieldByName('Total').AsFloat = 0 Then
    begin
      // messageDlg('Pas possible, total = 0',mtWarning,[mbOk],0);
      Abort;
    end;
end;

a+