Ver Mensaje Individual
  #3  
Antiguo 31-12-2012
nmenna10 nmenna10 is offline
Miembro
NULL
 
Registrado: jun 2012
Posts: 19
Reputación: 0
nmenna10 Va por buen camino
hola, perdon me equivoque de codigo cuando lo puse en el hilo, el codigo seria este:

Código Delphi [-]
procedure TForm_Equipos.SpeedButton1Click(Sender: TObject);
Var
 Filtro:string;

begin


if edit1.Text <> '' then
  begin
    if datamodule1.Table_RMA.FieldByName('nserie1').AsString <> '' then
    begin
      if filtro <> '' then filtro:= filtro + ' and ';
      Filtro:= Filtro + '(nserie1 Like %' + edit1.Text + '%)';
    end;

    if datamodule1.Table_RMA.FieldByName('nserie2').AsString <> '' then
    begin
      if filtro <> '' then filtro:= filtro + ' and ';
      Filtro:= Filtro + '(nserie2 Like %' + edit1.Text + '%)';
    end;

    if datamodule1.Table_RMA.FieldByName('nserie3').AsString <> '' then
    begin
      if filtro <> '' then filtro:= filtro + ' and ';
      Filtro:= Filtro + '(nserie3 Like %' + edit1.Text + '%)';
    end;


el problema que tengo seria el mismo.

Muchas gracias y disculpen....

Última edición por Casimiro Notevi fecha: 31-12-2012 a las 17:22:24.
Responder Con Cita