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;
procedure TForm1.Button1Click(Sender: TObject); begin Dblk1.ListField:=''; Dblk1.KeyField:=''; Dblk1.DataSource:=Nil; Dblk1.ListSource:=DataSource2; Dblk1.ListField:='Profesor'; Dblk1.KeyField:='Profesor'; end;