Discussion :

[bertrand_declerck]

Bonjour

est-il possible de bloquer (rendre inaccessible) le champ d'une colonne seulement pour la première ligne et qu'un seul champ précis ?

Par la suite, toutes les lignes suivantes sont de retour accessibles même le champ bloqué de la première ligne qui lui le restera toujours.


Merci

[mico2]

Tu as la possibilité de rendre la colonne de ton DbGrid ReadOnly lorsque tu es sur le 1er enregistrement de ta base de données.
Pour ce faire il faut conserver le numéro du premier enregistrement de la table à l'ouverture (ce n'est pas forcement 1), et ensuite, comparer ce numéro au numéro en cours à chaque changement de ligne.


Création de la variable NumPremierEnreg :

Code :

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

1
2
3
4
5
6
7
 
 
implementation
 
{$R *.dfm}
 
Var NumPremierEnreg: Integer;

Attribution d'une valeur à cette variable à l'ouverture de la table :

Code :

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

1
2
3
4
5
6
 
 
procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
 NumPremierEnreg:=Table1.RecNo;
end;

Mettre la colonne en ReadOnly si on est sur le 1er enregistrement :
Dans l'exemple c'est la 4eme colonne qui est traitée

Code :

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

1
2
3
4
5
6
 
 
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
DbGrid1.Columns[3].ReadOnly := (Table1.RecNo=NumPremierEnreg);
end;

[bertrand_declerck]

Merci

je n'aurais jamais trouvé cela tout seul !