Ver Mensaje Individual
  #3  
Antiguo 27-03-2007
Avatar de droguerman
droguerman droguerman is offline
Miembro
 
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Reputación: 22
droguerman Va por buen camino
forma 2:
Código Delphi [-]
procedure dbLook.OnEnter(Sender: TObject);
begin
if VarIsNull(dbLook.keyValue) and
   not (dbLook.ListSource.dataset.eof) then
    dbLook.KeyValue := dbLook.ListSource.dataset.fieldByName(dbLook.KeyField).Value;
end;
__________________
self.free;
Responder Con Cita