Buscar por:
Código FormRel.tbVendas.Filter := 'Data >=' + QuotedStr(DateToStr(DateTimePicker1.Date)) + 'and Data <=' + QuotedStr(DateToStr(DateTimePicker2.Date)); DM.tbVendas.Filtered:= True; DM.tbVendas.IndexName:= 'Nome02'; DM.tbVendas.Open; formRel.QuickRep1.Preview;
FormRel.tbVendas.Filter := 'Data >=' + QuotedStr(DateToStr(DateTimePicker1.Date)) + 'and Data <=' + QuotedStr(DateToStr(DateTimePicker2.Date)); DM.tbVendas.Filtered:= True; DM.tbVendas.IndexName:= 'Nome02'; DM.tbVendas.Open; formRel.QuickRep1.Preview;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009