Ver Mensaje Individual
  #9  
Antiguo 29-09-2011
Avatar de Darkseratul
Darkseratul Darkseratul is offline
Miembro
NULL
 
Registrado: feb 2011
Posts: 58
Reputación: 14
Darkseratul Va por buen camino
Muchas gracias

Discúlpenme pero si me confundí diablos siempre que trato de explicar mi problema se me van las patas

Ciertamente como ya lo comentaron quise desir micampo1, micampo2, micampo3

Es solo una tabla con tres campos diferentes

gracias a todos por su ayuda y paciencia siempre meto la pata

Coral tu ejemplo es mas o menos lo que quise hacer pero en el se asumen varias tablas pero en mi caso solo es una con 3 campos

Código Delphi [-]
procedure TForm5.Edit1Change(Sender: TObject);
begin
  // Siempre se quita el filtro
  ADOTable1.Filtered := False;

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked then
    begin
      ADOTable1.TableName:= 'mitabla1'; 
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox2.Checked then
      begin
      ADOTable1.TableName:= 'mitabla2';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox3.Checked then
    begin
      ADOTable1.TableName:= 'mitabla3';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else
    ADOTable1.Filtered := False;
   end; 
  end;
end;

Muchas gracias a todos
Responder Con Cita