DBLoopupCombobox-Eintrag auswählen

[Sharky]

Hai Stonyyy,

dafür musst Du einfach der Eigenschaft .KeyValue der DBLookUpCobmoBox einen passenden Wert zuweisen.

Hier mal ein einfaches Beispiel:

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
var
 tmpquery : TZQuery;
begin
  tmpquery := TZQuery.Create(self);
  try
    with tmpquery do
    begin
      Connection := ZConnection1;
      Close;
      SQl.Text := 'SELECT id FROM meintest WHERE name = :name';
      ParamCheck := True;
      with Params do
      begin
        ParamByName('name').AsString := Edit1.Text;
      end;
      Open;
      DBLookupComboBox1.KeyValue := FieldByName ('id').AsInteger;
      Close;
    end;
  finally
    FreeAndNil (tmpquery);
  end;
end;

Query1 ist das TDataSet das die Daten für meine TDBLookUpComboBox hat.
In der "Click-Funktion" ermittele ich mit einem zweien Query einfach die ID (Ist bei mir das KeyFeld der DBLoCoBo) und weise diesen Wert dann .KeyValue zu.