Código Delphi [-] mytable1.Filtered:= False; mytable1.Filter := 'Dia = '+DateToStr(Edit1.Text); mytable1.Filtered := True;
mytable1.Filtered:= False; mytable1.Filter := 'Dia = '+DateToStr(Edit1.Text); mytable1.Filtered := True;