Crow2020 께서 말씀하시기를...

> 안녕하세요..

>

> 이번이 벌써 3번째 질문이네요..(헉..헉..)

> QuickReport에서 String Grid의 값을 출력하려고 하는데 저의 무지때문에

> 잘 안되네요...

>

> 출력폼은요..

>

> 타이틀 -> 타이틀 밴드를 사용했어요.

> ------

>

> ----------------------------

> 성명 1월 2월 .... 12월 합계 -> 컬럼헤더를 사용했어요.

> ----------------------------

> 아무게 1 2 12 55 -> 디테일 밴드를 사용했어요.

> .

> .

> ----------------------------

> 합계 12 32 31 500 -> 써머리 밴드를 사용했어요.

>

> 이렇게 사용했는데 자꾸 제가 원하는 값이 않나오네요...

>

> 제발 한수만 가르쳐주세요..

>

>

>

죄송합니다. 대답이 늦었군요.

스트링 그리드에서 이미 위 형태를 만들었다고 가정하고, 스트링 그리드의 내용을 그대로 출력하는건에 대해서만 말씀드리겠습니다.

이미 스트링그리드에서 집계된 내용이니까 서머리밴드 같은건 필요없고, 디테일밴드에서 스트링그리드의 내용을 가져오는 부분의 소스 일부를 올립니다.



아래 소스에서 TA20300QF는 퀵리포트포이고, TA2030IF는 리포트를 호출하는

즉 스트링그리드가 있는 폼입니다.

sgQuery는 스트링그리드명입니다.

procedure TTA2030QF.TA2030QFNeedData(Sender: TObject; var MoreData: Boolean);

begin

if CurrentRow < TA2030IF.sgQuery.RowCount then begin

qlRqt_Dat.Caption := TA2030IF.sgQuery.Cells[0, CurrentRow];

qlCust_No.Caption := TA2030IF.sgQuery.Cells[1, CurrentRow];



qlRqt_Cbm.Caption := TA2030IF.sgQuery.Cells[8, CurrentRow];

qlRqt_Wgt.Caption := TA2030IF.sgQuery.Cells[9, CurrentRow];

qlCust_Nm.Caption := TA2030IF.sgQuery.Cells[10, CurrentRow];

qlItem_Nm.Caption := TA2030IF.sgQuery.Cells[11, CurrentRow];



end;

Inc(CurrentRow);



Moredata := CurrentRow <= TA2030IF.sgQuery.RowCount;

end;

Crow2020 께서 말씀하시기를...

> 안녕하세요..

>

> 이번이 벌써 3번째 질문이네요..(헉..헉..)

> QuickReport에서 String Grid의 값을 출력하려고 하는데 저의 무지때문에

> 잘 안되네요...

>

> 출력폼은요..

>

> 타이틀 -> 타이틀 밴드를 사용했어요.

> ------

>

> ----------------------------

> 성명 1월 2월 .... 12월 합계 -> 컬럼헤더를 사용했어요.

> ----------------------------

> 아무게 1 2 12 55 -> 디테일 밴드를 사용했어요.

> .

> .

> ----------------------------

> 합계 12 32 31 500 -> 써머리 밴드를 사용했어요.

>

> 이렇게 사용했는데 자꾸 제가 원하는 값이 않나오네요...

>

> 제발 한수만 가르쳐주세요..

>

>

>