!!Problemas con IF y sus valores !!

[[Caral]]

Hola
Mira este codigo:

Código Delphi [-]
procedure TFBuscaCliente.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ATClientes.Filtered := False;
      If CBFiltro.Text = 'Código' then Filtro := 'CodCliente Like '+Edit1.Text
         else If CBFiltro.Text = 'Nombre' then Filtro := 'NombreCliente Like '''+ Edit1.Text + '*'''
            else If CBFiltro.Text = 'Teléfono' then Filtro := 'Telefono Like '''+ Edit1.Text + '*''';
      ATClientes.Filter := Filtro;
      ATClientes.Filtered := True
   end
   else ATClientes.Filtered := False;
end;

Es lo mismo que quieres hacer tu.
Lo he usado siempre y nunca me ha dado ningun problema.
Como Te imagiraras CodCliente es Numerico y me filtra sin problemas.
CBFiltro es un combobox que me elige las opciones.
Trata de ver que se te ocurre, estoy seguro que tarde o temprano sale esto.
Saludos

[Darkseratul]

Empezado por Caral

Hola
Mira este codigo:

Código Delphi [-]
procedure TFBuscaCliente.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ATClientes.Filtered := False;
      If CBFiltro.Text = 'Código' then Filtro := 'CodCliente Like '+Edit1.Text
         else If CBFiltro.Text = 'Nombre' then Filtro := 'NombreCliente Like '''+ Edit1.Text + '*'''
            else If CBFiltro.Text = 'Teléfono' then Filtro := 'Telefono Like '''+ Edit1.Text + '*''';
      ATClientes.Filter := Filtro;
      ATClientes.Filtered := True
   end
   else ATClientes.Filtered := False;
end;

Es lo mismo que quieres hacer tu.
Lo he usado siempre y nunca me ha dado ningun problema.
Como Te imagiraras CodCliente es Numerico y me filtra sin problemas.
CBFiltro es un combobox que me elige las opciones.
Trata de ver que se te ocurre, estoy seguro que tarde o temprano sale esto.
Saludos

muchas gracias voy a checarlo y incorporarlo a mi proyecto a ver si me funciona

Muchas gracias maestro

[[Caral]]

Hola
Estoy convencido que algo tiene que ver la conexion con la tabla en el adotable, no veo otra razon.
Mas tarde si tengo tiempo voy a usar tu BD y hacer algo similar a ver donde esta el problema.
Esto no tiene sentido, tiene que haber una explicacion logica.
Saludos
PD: oscarac tiene muy buenas ideas, esperemos a ver que dice.

[Darkseratul]

Empezado por Caral

Hola
Estoy convencido que algo tiene que ver la conexion con la tabla en el adotable, no veo otra razon.
Mas tarde si tengo tiempo voy a usar tu BD y hacer algo similar a ver donde esta el problema.
Esto no tiene sentido, tiene que haber una explicacion logica.
Saludos
PD: oscarac tiene muy buenas ideas, esperemos a ver que dice.

Muchas gracias por tu tiempo estoy tratando de incorporar el método que me diste voy a ver que tal