Table Filter

[nahpets]

Also, wenn's 'ne Zeichenfolge ist, dann sollte man eventuell auch .AsString statt .Text nutzen.

Folgende Werte möchte ich wissen:

Delphi-Quellcode:

ShowMessage('>>>' + Form1.Table_Einsaetze_Event.FieldByName('EINSATZNUMMER').Text + '<<<');
ShowMessage('>>>' + Form1.Table_Einsaetze_Event.FieldByName('EINSATZNUMMER').AsString + '<<<');

Bitte prüfe, ob die Einsatznummer immer gefüllt ist.

Delphi-Quellcode:

if Trim(Form1.Table_Einsaetze_Event.FieldByName('EINSATZNUMMER').AsString) = '' then begin
  ShowMessage('Die Einsatznummer des aktuellen Satzes ist nicht gefüllt.');
end else begin
  Form1.Table_Einsaetze_Event.Filtered := false;
  Form1.Table_Einsaetze_Event.Filter := QuotedStr(Format('EINSATZNUMMER = %s', [Form1.Table_Einsaetze_Event.FieldByName('EINSATZNUMMER').AsString]));
  Form1.Table_Einsaetze_Event.Filtered := true; 
end;