Ver Mensaje Individual
  #2  
Antiguo 17-05-2010
Lenny Lenny is offline
Miembro
 
Registrado: jun 2007
Posts: 161
Reputación: 17
Lenny Va por buen camino
Ya pude hacerlo!!!

Bueno, acudi a la vieja escuela "Prueba y Error" y dio sus frutos...
Por si a alguien le sirve ak ta:

Código Delphi [-]
procedure TProductos.Edit1Change(Sender: TObject);
Var
Valor,Valor1 : String;
begin
     if Edit1.text = '' then
     begin
     BDatos.ZTable3.Filtered := false;
     exit;
     end;
         BDatos.ZTable3.Locate(ComboBox1.Text, Edit1.Text,[loPartialKey,loCaseInsensitive]);
         valor := Edit1.Text;
         Valor1 := Valor;
         inc(valor1[length(Valor1)]);
         BDatos.ZTable3.Filter := ''+ComboBox1.Text+' >= '+QuotedStr(Valor)+ ' and '+ComboBox1.Text+' < ' +QuotedStr(valor1);
         BDatos.ZTable3.Filtered := true;
          end;
end.

Asi funciona de perlas, tambien en el OnChange del combobox inclui esto:

Código Delphi [-]
procedure TProductos.ComboBox1Change(Sender: TObject);
begin
Edit1.Clear;
end;

Con esto nos aseguramos hacer una busqueda en blanco por cada criterio elegido, Gracias de todos modos siempre han respondido mis preguntas dando respuestas claras y espero que esta duda le sirva a futuro a alguien, Byes!!!

PD: Si alguien encuentra un error, correccion o mejor manera de abordar el problema, feliz de resivir cualquier sugerencia/cambio... Byes!!!
Responder Con Cita