Hola! tengo en un form, un dblookupcombobox, que se va a llenar con datos de diferentes tablas, segun la elección que se haga en un radiogroup. Para ser más clara, ejemplo: Los informes de la biblioteca pueden tener tres tipos de autores, que pertenezcan a mi lugar de trabajo, o que sean exemplados o que sean personas externas, dependiendo del tipo de autor el dblookupcombobox, elije la tabla y se llena, a esto que explico trate de hacerlo de esta manera: (listadoautores es el name del dblookupcombobox)
Código Delphi
[-]procedure TFrmbiblioteca.listadoautoresClick(Sender: TObject);
begin
case Rgautores.ItemIndex of
-1: showmessage ('Elija el tipo de autor!');
0: begin
md.DSpersonal.DataSet:=md.ZTPersonal;
listadoautores.ListSource:=md.DSpersonal;
listadoautores.ListField:='apellido;nombre'; listadoautores.KeyField:='idpersonal';
end;
1:begin
md.DSpersonal.DataSet:=md.ZTexcneas;
listadoautores.ListSource:=md.DSpersonal;
listadoautores.ListField:='apellido;nombre'; listadoautores.KeyField:='idexcneas'
end;
2:begin
md.DSpersonal.DataSet:=md.ZTexternos;
listadoautores.ListSource:=md.DSpersonal;
listadoautores.ListField:='apellido;nombre'; listadoautores.KeyField:='idautores';
end;
end;
end;
Bueno, cuando corro la aplicacion, no hace nada
, si no selecciono ningun items, no muestra ningun mensaje, o si selecciono no carga el dblookupcombobox. Debo colocar el código en otro evento?
Muchas Gracias!!