Hola
Por favor corrigeme pero creo que funcionaria asi tambien:
Código Delphi
[-]
procedure TFTodos.BFiltrarClick(Sender: TObject);
begin
IBQInformes.Close;
IBQInformes.Sql.Clear;
if Cbvencidos.Checked=true then
begin
IBQInformes.SQL.Add(' SELECT * FROM Telas INNER JOIN Descripcion ');
IBQInformes.SQL.Add(' ON Telas.Descripcion1 = Descripcion.Descripcion ');
IBQInformes.SQL.Add(' Where Telas.FECHA_PROMETIDA > "'+ DateToStr(Now) +'"');
IBQInformes.Open;
end;
end;
Con relacion a lo otro totalmente de acuerdo con tigo, gracias por la acotacion.
Saludos