11 respuestas en este tema

[FELIX]

Saludos

otra ves en problemas   

tengo un DBLookupComboBox6 que trae datos desde un datasource (dsUFunc), cuando ejecuto el programa muestra los datos que necesito, pero cuando selecciono el dato no me lo muestra el DBLookupComboBox, cuando doy clic en el boton guardar queda en la bd.

Pueden decirme como hago para que cuando escoja el dato me lo muestre el DBLookupComboBox??? 
     

[Caral]

Hola
No entiendo.
Saludos

[FELIX]

Que tal, estoy utilizando el componente dblookupcombobox para mostrar los datos de una tabla , ya enlace los datos con la tabla y al iniciar la aplicacion si los despliega, pero no aparece seleccionado ninguno cuando hago clic en uno de ellos, lo que quiero hacer es que aparezca seleccionado un determinado dato de los que contiene.

[Caral]

Hola
Me extraña, no deberia de pasar.
Revise entre dos y no veo nada que se necesite cambiar.
Saludos

[FELIX]

es lo que se me hace raro.

Tengo 3 dbedit y un DBLookupComboBox
Nombre del Paciente
Diagnostico del Ingreso
Nombre del Medico
Unidad Funcional(DBLookupComboBox)

en las propiedades de DBLookupComboBox tengo el datafield =id_und_funcional, datasource=dssolingreso, keyfield=id_und_funcional, listsource=dsufunc.


codigo el boton Ingreso 

delphi

procedure TfrmNotaIngreso.actAdmisionExecute(Sender: TObject);
begin
FDmHis.T_Historia.ParamByName('id_historia').AsInteger:=FIdhistoria;
FDmHis.T_Historia.Open;
FDmHis.T_Historia.Edit;
 
if Not(FDmHis.T_Historia.State in [dsInsert, dsEdit]) then
 FDmHis.t_Historia.Edit;
 CrearModuloSolicitudIngreso;
 FDmSolIng.Historia := FIdhistoria;
 FDmSolIng.Paciente := Fdm.Id_Paciente;
 FDmSolIng.Medico   := FDmHis.t_Historia.FieldByName('ID_MEDICO').AsInteger;
 FDmSolIng.DxIngreso := FDmHis.Get_DiagnosticoIngreso;
 FDmSolIng.Crear_Solicitud_Ingreso;
 end;

//solicitud ingreso

delphi

procedure TDmSolicitudIngreso.Crear_Solicitud_Ingreso;
begin
AbrirSolicitudDeIngreso;
if t_SolIngreso.IsEmpty then
   begin
   t_SolIngreso.Insert;
   t_SolIngreso.Post;//Esto dispara el refres para que se ven los datos
   end;
t_SolIngreso.Edit;
end;

No se que estoy haciendo mal

[Caral]

Hola
AbrirSolicitudDeIngreso; es un procedimiento ?., que hace ?
Saludos

[FELIX]

permite crear una nueva nota al ingreso de un paciente, si entro a la clinica por urgencias, cirugia, remitido de otro centro de salud 

[Caral]

Hola
Ya puedes poner adjuntos.
Si quieres puedes hacer un zip con el programa y la BD (quitale el exe).
Lo subes aqui, a ver si le echamos una ojeada, sera mas facil ver el problema.
Saludos

[FELIX]

gracias caral por tu tiempo, lo que pasa es que es un programa muy pesado y demas tengo restricciones para poder enviar el codigo (protocolos que manejan), me es imposible enviarte el codigom me entiendes.

Bueno respecto a inconveniente del dblookup e pensado mejor mostrar los datos desde un dbedit, pero no se como hacer para conectarlo a la bd
 

[eduarcol]

No entiendo lo que necesitas, segun se seleccionas un registro de la lista, pero donde no te lo selecciona? en que control lo quisieras ver seleccionado?

[Caral]

Hola
Cualquier cosa tambien se pude usar un sencillo combobox y mostrar los datos en el.
Saludos

[FELIX]

Saludos

Gracias lo hice con el combobox y  un boton buscar y salio perfecto.

Lo que me pasaba con el dblook era que al iniciar la aplicacion desplegaba los datos pero al seleccionarlos no mostraba nada, quedaba de color azul el dblook.