Ver Mensaje Individual
  #1  
Antiguo 12-06-2008
aleja aleja is offline
Miembro
 
Registrado: oct 2005
Ubicación: Salta - Argentina
Posts: 48
Reputación: 0
aleja Va por buen camino
Red face Tratar de combinar dblookupcombobox con radiogroup

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';//asi se pone para que mueestre dos campos?
         listadoautores.KeyField:='idpersonal';
      end;
    1:begin
         md.DSpersonal.DataSet:=md.ZTexcneas;
         listadoautores.ListSource:=md.DSpersonal;
         listadoautores.ListField:='apellido;nombre';//asi se pone para que mueestre dos campos?
         listadoautores.KeyField:='idexcneas'
      end;
    2:begin
         md.DSpersonal.DataSet:=md.ZTexternos;
         listadoautores.ListSource:=md.DSpersonal;
         listadoautores.ListField:='apellido;nombre'; //asi se pone para que mueestre dos campos?
         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!!
Responder Con Cita