Q&A

  • SubDetail 밴드에서 오류해결좀 해주세요~
마스터-디테일을 하려는건 아니구요~ 다만 변수의 값을 넘기기 위해서 SubDetail 밴드를 썼거든요... (아이구, 이거 엔터키가 안먹네..ㅜ.ㅜ)            그런데, 자꾸 에러가 나서요~  고수님들의 조언 부탁합니다.                      소스는 다음과 같습니다.                                                                                           procedure TqrSum06.QRSubDetail1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
   if i < 13 then begin
     qrlName.Caption := frmsum06r.totname[i];
     qrlJan.Caption := FormatFloat('###,###,##0', frmsum06r.totwon[i]       +frmsum06r.totresult[i]);
     qrlTtot.Caption := FormatFloat('###,###,##0',frmsum06r.totwon[i]+frmsum06r.totresult[i]);
     MoreData := True;   // 문제의 오류부분.....
   end;
   Inc(i);  
end;                                                                                                                                                                                                           대충 이런식으로 해서 12개의 row값을 나오게 해야 하는데요... MoreData := True 부분을 빼고 첫번째 값만 나오게 하면 잘 나오거든요..   그런데 이 부분을 추가한 다음에 12개 값을 나오게 하면 오류가 납니다...ㅜ.ㅜ                    오류 메세지는 "Project Sub5.exe raised exception class EFCreateError with message 'Cannot create file'.........  입니다...                                  오류를 무시하고 다시 재 실행시키면 다시 에러가 나면서 값이 나오긴 하는데, 12개 이상의 row가 나오면서 첫번째 값이 계속 반복해서 뿌려집니다.. 왜이런 결과가 나오는지.. ㅜ.ㅜ    루틴을 돌려주는 i 의 증가되는 값이 세팅이 안되는것 같기도 하고.... 암튼.. 여러분들의 답변을 기다리겠습니다.... 도와주세요~
2  COMMENTS
  • Profile
    이성훈 2002.03.13 19:32
    이렇게 함 해보시죠...
    procedure TqrSum06.QRSubDetail1NeedData(Sender: TObject;
      var MoreData: Boolean);
    begin
         MoreData := True;   // 문제의 오류부분.....

         qrlName.Caption := frmsum06r.totname[i];
         ....
         ....
        
         MoreData :=  i <= 12;
         Inc(i,31);
      
        Inc(i);  
    end;                                                                                                    
    그럼 즐프하세요..^^


  • Profile
    이성훈 2002.03.13 19:34