Discussion :

[Karim1971]

Pour aller d'une colonne ver l'autre par la touche entrer dans un dbgrid j'utilise le code suivant:

Code :

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

1
2
3
4
5
6
7
 
Procedure Tform.dbgrid1KeyDown(Sender:Tobject; Var Key:Word; Shift:TshiftState)
begin
if key=13 then
if Dbgrid1.SelectedIndex<Dbgrid.Columns.Count-1 then
Dbgrid1.SelectedIndex:=Dbgrid1.selected+1;
end.

Mais comment aller à la ligne suivante par la touche entrer si j'arrive à la dernière colonne?
J'ai ajouté quelque modification mais j'arrive pas.

[TicTacToe]

Ce n'est pas vraiment la DBGrid dont il s'agit. Les données se trouvent dans le dataset et le DBGrid ne contient aucune données.

Pour passer à la ligne suivante, il faut donct simplement faire

Code :

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

1
2
3
4
5
6
 
Dataset.Next (ou Table.Next si c'est un TTable).
 
idem, pour reculer, Table.prior
 
de manière plus général DBgrid.Dataset.Next;

bon courage !

[Cl@udius]

Salut,

Essaye peut-être ceci:

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
 
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if Key = #13 then // Si touche Return pressée 
  begin 
    with TDBGrid(Sender), TDBGrid(Sender).DataSource.DataSet do 
    begin 
      // Si cellule active pas sur dernière colonne 
      if SelectedIndex < Columns.Count - 1 then 
        SelectedIndex := SelectedIndex + 1  // Colonne suivante 
      // Si sur dernier enregistrement 
      else if RecNo = RecordCount then 
        begin 
          SelectedIndex := 0; // Sélection 1° colonne 
          Append; // Ajout nouvel enreg 
        end 
      // Sinon 
      else 
        begin 
          SelectedIndex := 0; // Sélection 1° colonne 
          MoveBy(1); // Aller sur enreg suivant 
        end; 
    end; 
  end; 
end;

Un remarque cependant, cette méthode utilise la propriété RecordCount qui ne fonctionne pas forcément avec tous les SGBD !
Salut, @+

[Rayek]

Salut,

Essaye peut-être ceci:

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
 
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if Key = #13 then // Si touche Return pressée 
  begin 
    with TDBGrid(Sender), TDBGrid(Sender).DataSource.DataSet do 
    begin 
      // Si cellule active pas sur dernière colonne 
      if SelectedIndex < Columns.Count - 1 then 
        SelectedIndex := SelectedIndex + 1  // Colonne suivante 
      // Si sur dernier enregistrement 
      else if RecNo = RecordCount then 
        begin 
          SelectedIndex := 0; // Sélection 1° colonne 
          Append; // Ajout nouvel enreg 
        end 
      // Sinon 
      else 
        begin 
          SelectedIndex := 0; // Sélection 1° colonne 
          MoveBy(1); // Aller sur enreg suivant 
        end; 
    end; 
  end; 
end;

Un remarque cependant, cette méthode utilise la propriété RecordCount qui ne fonctionne pas forcément avec tous les SGBD !
Salut, @+

Bin pour éviter ce problème il suffit d'utiliser EOF au lieu de RecNo=RecordCount car EOF indique si on est sur le dernier enregistrement de l'ensemble ou non

[Cl@udius]

@Malatar: Salut !

D'accord avec toi sur le principe d'utiliser Eof plutôt que RecordCount, mais la difficulté dans le cas présent est de détecter que l'on est positionné sur le dernier enregistrement (pour déclencher un Append), donc dans ce cas Eof est à False.

Donc si tu as une astuce sous le coude, je suis preneur.

@+ Claudius.

[TicTacToe]

j'ai lu un peu vite, j'avais pas vu que c'etait au bout de la derniere colonne qu'il fallait passer à la ligne suivante.

sinon +1 pour eof malatar
si on reprend ton code initial, et si il fonctionne, ceci devrait suffire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Procedure Tform.dbgrid1KeyDown(Sender:Tobject; Var Key:Word; Shift:TshiftState)
begin
if key=13 then
if Dbgrid1.SelectedIndex<Dbgrid.Columns.Count-1 
  then dbgrid1.SelectedIndex:=Dbgrid1.selected+1
else 
  if not DBGrid.Dataset.Eof do
    begin
    DBGrid.Dataset.Next;
    SelectedIndex := 0;
    end;
end.

Recno n'est surtout pas à utiliser dans un cas, car en cas de filtre, si le dernier enreg n'apparait pas dans la grille, il ne correspondra pas à reccount.

si tu veux effectivement ajouter un enreg si tu es à la fin, il faut faire un append comme le dit claudius

:EDIT:
Salut Claudius, j'ai vu ton post après
Ca n'empeche en rien le Append, d'utiliser Eof.
Eof sera à True, après le dernier Next sur le dernier Enreg.
donc au prochain 'Enter', on saura que l'on est sur la derniere ligne.

[Rayek]

Si tu es sur le dernier enregistrement EOF est a True donc ca revient au même que RecNo = RecordCount


+1 a Tictactoe pour le coups du filtre, Raison de plus d'utiliser EOF

[Cl@udius]

@Malatar et TicTacToe,

Bien vu +1. J'étais persuadé que Eof passait à True lorsqu'on essayais d'aller au delà du dernier enreg. J'aurais appris quelque chose.

@+ Claudius