Una Ayudita consulta like y combobox

[[Delphius]]

Pues no te sabria decir... a juzgar por lo que dice el error... pareciera ser que se debe al concatenamiento. Puede que exista algun ' de más y/o que le falte. un showmessage del filtro puede que ayude... usar quotestr() es recomendable para evitar lios como estos.

Debido a la hora que es (0:21 am) no estoy con todas las pilas y se me hace dificil razonar demasiado... lamento no poder ayudarte mucho.

Saludos,

[[enecumene]]

Delphius, Al contrario, yo agradezco muchissimo que uses tu tiempo para poder ayudarme, estamos en las mismas, estoy casi durmiendome, tu ayuda vale mucho para mi aunque no se haya resuelto el asunto pues te aseguro que tu esfuerzo no fue en vano.

Yo hare un ultimo intento, tratare de hacerlo con querys como ya me habias comentado anteriormente, bueno, sin mas por el momento que pases buenas noches y que dios te acompañe.

Saludos.

[[eduarcol]]

A ver tu dices que si le das un espacio a cada OR te sigue saliendo el error??
quedaria algo asi

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var Filtro: string;
begin
 Filtro := '';
 if (Edit1.Text <> '')
    then begin
           Table1.Filtered := False;
           if ComboBox1.Text = 'Pedido'
              then Filtro := 'no_ped Like ''' +Edit1.Text+ '*''';
           if ComboBox1.Text = 'Trámite'
              then Filtro := 'tramite_no Like ''' +Edit1.Text+ '*''';
           if ComboBox1.Text = 'Orden de Compra'
              then begin
                     // si la condicion a buscar en varios campos
                     // debe cumplirse en todos poner AND
                     // yo asumí que deben ser OR
                     Filtro := 'oc_no_sigef1 Like ''' +Edit1.Text+ '*'' OR ';
                     Filtro := Filtro + 'oc_no_sigef2 Like ''' +Edit1.Text+ '*'' OR ';
                     Filtro := Filtro + 'oc_no_sigef3 Like ''' +Edit1.Text+ '*''';
                   end;
           if ComboBox1.Text = 'Carta Orden'
              then begin
                     Filtro := 'co1 Like '''  +Edit1.Text+   '*'' OR ';
                     Filtro := Filtro + 'co2 Like '''  +Edit1.Text+   '*'' OR ';
                     Filtro := Filtro + 'co3 Like '''  +Edit1.Text+   '*'' OR ';
                     Filtro := Filtro + 'co4 Like '''  +Edit1.Text+   '*''';
                   end;
           if ComboBox1.Text = 'Status'
              then Filtro := 'status Like '''  +Edit1.Text+   '*''';
           Table1.Filter := Filtro;
           Table1.Filtered := true;
         end
    else Table1.Filtered := False;

fijate que despues de los OR y antes de la comilla simple hay un espacio en blanco

[[enecumene]]

Hey Excelente Eduarcol, Ahora si Funciona, muchas gracias a ti, Delphius, y a Caral tambien, ahora me funciona de pelos, de NUevo Gracias.

Saludos.