Ver Mensaje Individual
  #5  
Antiguo 24-06-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por Casimiro Notevi Ver Mensaje
¿Qué más ayuda quiéres, DANIEL1818? si te ha puesto el código, solamente tienes que sustituir "tuDataset" por el nombre del tuyo (dm.subasta)
Ciertamente...

Daniel, mi pregunta sobre el componente apuntaba a que resulta mas simple de ver (y seguramente mas eficiente) filtrar los resultados antes de cargar el combo, para tu caso:
Código Delphi [-]
...
  with DM.Subastas do
  begin
    Close;
    Open;
    // Filtrar
    Filtered := False;
    Filter   := Format('NOMBRE_USUARIO = %s AND FECHA_FIN < %s', [MiNombre, DateToStr(Date)]);
    Filtered := True;

    // Copiar resultado al combo
    DisableControls;
    try
      while not Eof do
      begin
        ComboBox1.Items.Add(FieldByName('TITULO').AsString);
        Next;
      end;
    finally
      EnableControls;
      Filtered := False;  // Quitar el filtro
    end;
  end;
  ComboBox1.ItemIndex := 0;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 24-06-2015 a las 20:17:19. Razón: identación
Responder Con Cita