Filter mittels Combobox

[Sharky]

Hai rgorholt,

ersteinmal : "Herzlich Willkommen in der Delphi-PRAXiS"

wenn ich dich Richtig verstanden habe müsste es mit einer TDBLookupCombobox gehen. Du musst nur darauf achten die richtigen Eigenschaften zu setzen;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Query_zu_Laender_Tabelle do
  begin
    Close;
    SQL.Text := 'SELECT * FROM Laender_Tabelle';
    Open;
  end;

  DataSource1.DataSet := Query_zu_Laender_Tabelle;

  with DBLookupComboBox1 do
  begin
    ListSource :=  DataSource1;
    ListField := 'Laendername';
    KeyField := 'LaenderCode'; // Oder auch das ID-Feld der Tabelle.
  end;
end;

procedure TForm1.DBLookupComboBox1CloseUp(Sender: TObject);
begin
  laender_code :=  DBLookupComboBox1.ListSource.DataSet.FieldByName('laendercode').AsString;
end;