Como cambiar propiedas a DBLookUpCombobox

[ANDRES86]

Hola foristas, el problema es el siguiente, debo cambiar en tiempo de ejectucion las propiedades ListSource, ListField y KeyField del DBLookUpCombox, cuando las cambio en tiempo de ejecucion por primera vez no hay problema, pero cuando luego voy a cambiar nuevamente estas propiedades, dice que no encuentro el campo clave de la tabla que estaba visualizando antes, el codigo es este.

procedure TfREPORTES.Button2Click(Sender: TObject);
begin
  EBuscarPlaca.ListSource:=Form1.DataSoruce1;
  EBuscarPlaca.ListSource.DataSet:=Form1.Table1;
  EBuscarPlaca.ListField:='Campo1';
  EBuscarPlaca.KeyField:='Campo1';
end;

procedure TfREPORTES.Button3Click(Sender: TObject);
begin
  EBuscarPlaca.ListSource:=Form1.Datasource2;
  EBuscarPlaca.ListSource.DataSet:=Form1.Table2;
  EBuscarPlaca.KeyField:='Campo2';
  EBuscarPlaca.ListField:='Campo2';
end;

[[eduarcol]]

una idea, que tal si pruebas con disabe y enable controls del dataset??

[marcoszorrilla]

Prueba con esta idea:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Dblk1.ListField:='';
Dblk1.KeyField:='';
Dblk1.DataSource:=Nil;
Dblk1.ListSource:=DataSource2;
Dblk1.ListField:='Profesor';
Dblk1.KeyField:='Profesor';
end;

Un Saludo.