마스터-디테일을 하려는건 아니구요~ 다만 변수의 값을 넘기기 위해서 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 의 증가되는 값이 세팅이 안되는것 같기도 하고.... 암튼.. 여러분들의 답변을 기다리겠습니다.... 도와주세요~
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;
그럼 즐프하세요..^^