Ver Mensaje Individual
  #5  
Antiguo 29-09-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
El problema es que si contiene algo el edit, pero no se activa ningun check dara error ya que el comienzo y fin siempre termina con la activacion del filtro.
Me parece que la idea es buena, solo que por que no completar el codigo, ser mas especificos:

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.Filter := 'mitabla Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox2.Checked then
      begin
      ADOTable1.Filter := 'mitabla2 Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox3.Checked then
    begin
      ADOTable1.Filter := 'mitabla3 Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else
    ADOTable1.Filtered := False;
   end; 
  end;
end;
Saludos
__________________
Siempre Novato
Responder Con Cita