비슷한 질문을 본것 같긴 한데..찾아보니 없네요..- -;;
또 올렸다 구박마시고..

퀵레포트에서 아래와 같이 코딩을 했는데..
한건씩 밖에 안 나오네요..
디버깅 걸어서 보며는 Result.AdvGrid1.Rowcount 만큼
돌긴 도는데 왜 한건만 찍힐까요..
다른 부분은 코딩한데 없거든요..
어디가 잘못된건지 알려주세요...~~

procedure TReport.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);                              
begin        
  gs_Row := 0;                                          
  with Result.AdvGrid1 do                          
  begin                                                
    inc(gs_Row);                                        
    if gs_Row >= RowCount then                          
    begin                                              
      MoreData := False;                                
      exit;                                            
    end                                                
    else                                                
    begin                                              
      QLbl_no.Caption    := IntToStr(gs_Row);          
      QLbl_item.Caption  := Cells[2,gs_Row];            
      QLbl_size.Caption  := Cells[6,gs_Row];            
      QLbl_color.Caption := Cells[4,gs_Row];            
      QLbl_cnt.Caption   := Cells[9,gs_Row];            
      QLbl_uprice.Caption:= Cells[10,gs_Row];          
      QLbl_price.Caption := Cells[11,gs_Row];          
    end;                                                
                                                        
    if gs_Row < RowCount then                          
      MoreData := True                                  
    else                                                
      MoreData := False;                                
                                                        
  end;                                                  
                                                        
end;