DBGrid: Selektieren mehrerer Einträge per Code

[Alfonso]

Ich möchte in einem DBGrid verschiedene Datensätze per code selektieren, so als hätte der Anwender dieses mit der Maus selektiert.
Das Auslesen der Selektion erreiche ich ja über:

Delphi-Quellcode:

for i:=0 to DBGridRechnungen.SelectedRows.Count-1 do
          begin
            GotoBookmark(pointer(DBGridRechnungen.SelectedRows.Items[i]));
            //DO Something
          end;

Welche Möglichkeit gibt es, die Selektion per Code zu setzen?

Gruß
Alfonso

[haentschman]

Hallo...

welches Grid benutzt du ?

[Alfonso]

Ich verwende TJVDBGrid (aus JEDI), welches abgeleitet ist von TDBGrid. Was mit TDBGrid geht sollte hier auch gehen.

Gruß
Alfonso

[shmia]

Ja:

Delphi-Quellcode:

DBGrid.SelectedRows.CurrentRowSelected := True;

DBGrid.DataSource.DataSet.DisableControls und EnableControls nicht vergessen, wenn du in einer Schleife über das Dataset gehst.

[Privateer3000]

Nur zum verständnis.
Der steht der Datenzeiger nicht immer nur auf einem Satz?
Wenn multi-select geschieht das im Datasource?!

[shmia]

Zitat:

Zitat von Privateer3000

Der steht der Datenzeiger nicht immer nur auf einem Satz?
Wenn multi-select geschieht das im Datasource?!

Das kann man so nicht sagen.
Man kann nur die Datensätze selektieren, die man per Code angefahren hat.
Hier ein Beispiel:

Delphi-Quellcode:

// DBGrid1 ist mit Query1 verbunden
begin
   Query1.DisableControls;
   try
     Query1.First;
     // über alle Datensätze gehen
     while not Query1.Eof do
     begin
       // alle Artikel, die 500 Steine oder mehr kosten, selektieren
       if Query1.FieldByName('Preis').AsCurrency >= 500.0 then
          DBGrid1.SelectedRows.CurrentRowSelected := True
       else
          DBGrid1.SelectedRows.CurrentRowSelected := False;  // die billigen abwählen
       Query1.Next;
      end; 
   finally
     Query1.EnableControls;
   end;
end;

[Privateer3000]

Und die stehen dann im Source.
Oder anders gesagt zum ansprechen diese Sätze
müßte man nur bis zum eof durchlaufen...