Deutsches Lazarusforum

Ne Ne. Der Code ist sauber und funktioniert mit jedem DBGrid..
Du hast einen Denkfehler.

procedure TFPlz.Grid1TitleClick(Column: TColumn);
begin
if dmplz.sqlPlz.State = dsbrowse then begin
dmplz.sqlPlz.SortedFields := grid1.Columns.Items[column.Index].FieldName;

{Hier ist dein Denkfehler. Du ...

[gelöst]

uses ..., ZAbstractRODataset;

Das funktioniert prima.


procedure TFPlz.Grid1TitleClick(Column: TColumn);
begin
if dmplz.sqlPlz.State = dsbrowse then begin
// Nur ausführen, wenn der Status der Tabelle dsBrowse ist.

case dmplz.sqlPlz.SortedFields = grid1.Columns.Items[column.Index ...

paweld hat geschrieben: So 15. Sep 2024, 06:37 Hinzufügen der Einheit ZAbstractRODataset zum Abschnitt uses.

Danke . Klappt super.

Bin ratlos!

Ich habe eine Tabelle mit allen PLZ in DE die ich asc oder desc sortieren möchte.
Das unabhängig von einer Seletion.
Die Fehlermeldung ist : Identifier not found "stAscending".

Benutze Zeos

procedure TFPlz.Grid1TitleClick(Column: TColumn);
begin
if dmplz.sqlPlz.State=dsbrowse then ...

Klappt prima.
Danke!

Das Problem scheint, daß deine Zquery geöffnet ist.
Zquery.close;
Zquery.sql.text:='select * from table .......'; // evt. noch Hochkomma einfügen mit #39
Zquery.open;

Beispiel:
frmdaten.sqlBanken.SQL.Text:='select * from banken where bankleitzahl like ' + #39 + edtsuchen.text + '%' + #39;

Sicher ...