Ajuda com Filtro
21/05/2003
0
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)