Discussion :

[colorid]

Bonjour,

Je voudrais indiquer dans un DBGrid, dont toutes les colonnes sont décarées en ReadOnly, la ligne sélectionnée par un UpDown dont la propriété max est initialisée au nombre de lignes.

Merci à l'avance pour votre réponse rapide

[Cl@udius]

Salut

Tu cherches à utiliser un TUpDown pour naviguer dans un DBGrid.

Pourquoi tout simplement ne pas utiliser un TDBNavigator (où tu n'affiches que les flèches de navigation) ?

Tu te compliques la vie pour rien là non ? Ou bien il y derrière un besoin particulier que tu n'as pas exposé.

@+

[colorid]

Bonjour,

J'ai installé un DBNavigator mais je n'ai pas trouvé comment récupérer le n° de ligne sélectionné par le navigator. J'ai essayé avec l'évennement onclick et le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFormNominal.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var
  k,Max: Integer;
begin
  Max:= ScreenForm.CountFromTable('SEGMENTATION');
  for k:=1 to Max do
    if DBGrid1.SelectedRows.CurrentRowSelected then
      LabeledEditSegNo.Text:= IntToStr(k);
end;

Mais CurrentRowSelected n'est jamais à TRUE

Comment faire ?

[Cl@udius]

Re,

Si tu veux cette information, accède simplement au DataSet lié au DBGrid.
C'est le DataSet le "pilote" là dedans, pas le DBGrid.

Code :

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

NumLigne := DBGrid1.DataSource.DataSet.RecNo;

@+ Claudius

[colorid]

avec

Code :

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

1
2
3
4
procedure TFormNominal.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  LabeledEditSegNo.Text:= IntToStr(DBGrid1.DataSource.DataSet.RecNo);
end;

Tout baigne

Je coche résolu

[Cl@udius]

Ce n'est pas en réponse à un clic sur le DBNaviagtor que j'aurais fait ce traitement, mais plutôt en réponse à une déplacement dans le DataSet (évènement AfterScroll).

Ton label ne sera pas mis à jour si l'utilisateur clique dans le DBGrid (ou utilise les flèches).

@+ Claudius.

[colorid]

Code :

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

1
2
3
4
procedure TFormNominal.ADOTable1AfterScroll(DataSet: TDataSet);
begin
  LabeledEditSegNo.Text:= IntToStr(DBGrid1.DataSource.DataSet.RecNo);
end;