Ajuda com Filtro

21/05/2003

1

Olá, pessoal
Código abaixo está dando erro, ele fala que o Data Set não suporta a aritimetica. Mas quando coloco o valor da string dentro, Ex: Table1.Filter := ´Data_Pagamento = Null AND Data_Vencimento <= 01/01/04´ ele aceita normal. Obs: não posso fazer este código em SQL, pois, é um trabalho de escola e o professor ensinou até aí.

procedure TQRVENDVencidas.Table1BeforeOpen(DataSet: TDataSet);
var
inp : String;
begin
inp := InputBox(´Data de Vencimento´,´Digite a Data´,´´);
Table1.Filter := ´Data_Pagamento = Null AND Data_Vencimento <= ´ + inp;
end;

Se alguém já teve o mesmo problema, me ajudem.

Obrigado

Marcelo Pomarolli


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira