Ajuda com Filtro
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
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
Pomarolli
Curtidas 0