mult-select no DBGrid

Delphi

04/05/2004

Tenho que fazer um relatorio onde no dbgrid estão os campos para seleção podendo escolher mais de um, e quando abrir o relatorio tenho que filtrar somente pelos campos selecionados.
No caso a tabela só tem dois campos cdBairro e bairro

Como posso fazer isto.
Obrigado! :D


Farjola

Farjola

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

04/05/2004

Tente assim: 

var 
  Form1: TForm1; 
  Vproc, Vmax:integer; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
   Vproc:=0; 
   Vmax:=DBGrid1.SelectedRows.Count-1; 
   QuickRep1.Preview; 
end; 

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); 
begin 
   if Vproc <= Vmax then 
      begin 
      DBGrid1.DataSource.DataSet.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[Vproc])); 
      inc(Vproc); 
      MoreData:=True; 
      end; 
end;



GOSTEI 0
POSTAR