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;
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;