Código Delphi [-] procedure TForm1.DBLookupComboBox1Click(Sender: TObject); begin Table2.Filter:='Busqueda = '+QuotedStr(DbLookupComboBox1.Text); Table2.Filtered:=True; DBLookupComboBox2.Enabled:=True; DBLookupComboBox2.DropDown; end;
procedure TForm1.DBLookupComboBox1Click(Sender: TObject); begin Table2.Filter:='Busqueda = '+QuotedStr(DbLookupComboBox1.Text); Table2.Filtered:=True; DBLookupComboBox2.Enabled:=True; DBLookupComboBox2.DropDown; end;