Datensatz in einem DB-Grid markieren

[himitsu]

Es gommt auf das Grid drauf an, ob und in welcher Richtung es sich ausrichtet.
Das kann es machen, aber muß es nicht.
Bei einigen Grid-Komponenten ist sowas nicht eingebaut und bei Anderen kann man es (de)aktivieren.

z.B.:
Grid-Selection (OnSelect) => DataSet ausrichten
DataSet-RecordIndex (OnAfterScroll) => Row im Grid selektieren

Und wenn dein Code nichts macht, dann wird er entweder nicht ausgeführt oder das Locate trifft nichts, da diese ID nicht im DataSet vorkommt.

Zitat:

Was dann die OnClick-Prozedur angeht, finde ich es immer seltam,

Jupp, man könnte fast der Vermutung unterliegen, dass OnClickCell falsch ist und jemand eigentlich etwas ala OnSelectionIrgendwas verwenden wollte.
Am Ende kommt noch ein User auf die saudoofe Idee und arbeitet mit den Cursortasten anstatt mit der Maus zu klicken.

[Ykcim]

Hallo Zusammen,

die Eigenschaften des Grids RowSelect habe ich aktiviert. Und der Datensatz wird auch in Frame_Kunden1.Grid_Konzern.DataSource.DataSet.Loca te gefunden. Das habe ich geprüft. Aber auf das Grid hat das irgendwie keine Auswirkung. In dem Grid werden alle Datensätze angezeigt und der erste ist selektiert, obwohl das der falsche ist.

Ich kann auch ausschließen, dass die Procedure gar nicht durchlaufen wird, auch das habe ich geprüft. Ich habe wirklich keine Idee, warum der gefundene Datensatz nicht markiert wird.

Was die OnClickCell-Procedure angeht, nehme ich die Anregung gerne an und lagere sie aus und steuere sie mit dem OnSelect Event an.

Vielen Dank
Patrick

[nahpets]

Schau mal bitte, ob Dein DBGrid sowas unterstützt:
DBGrid.SelectedRows.CurrentRowSelected := True;

Das könnte dann in etwa so aussehen:

Delphi-Quellcode:

if Frame_Kunden1.Grid_Konzern.DataSource.DataSet.Locate('konzern_id', MySQL.Query_Standort.FieldByName('konzern_id').AsInteger, []) then begin
   Frame_Kunden1.Grid_Konzern.DataSource.DataSet.SelectedRows.CurrentRowSelected := True;
   Frame_Kunden1.Grid_KonzernClickCell(Frame_Kunden1.Grid_Konzern, MySQL.Query_Konzern.FetchRows, 2);
end;

[hoika]

Hallo,
mit dem TDBAdvGrid habe ich auch so meine liebe Not gehabt.
Ich habe das jetzt ersetzt durch TAdvStringGrid und mache die DB-Zugriffe selbst.

[Ykcim]

Hallo Zusammen,

soeben gelöst - ich hatte in dem nachfolgenden Procedure-Ablauf noch eine Änderung am DataSet, sodass das Locate überschrieben wurde.

Jetzt passt es.

Vielen Dank

P.S.: Die OnCellClick wurde in ein OnSelectedCell und der Inhalt in eine separate Procedure ausgelagert.