출력폼 디비그리드서 멀티 셀렉트한 것만 넘어오게 만들었는데, 레포트에는 고정적으로
디테일에 16칸 출력해야해요. 선택한 자료가 16개가 되지않으면 레프트에는 선택된
데이타이외는 빈칸만 보여줘야 하는데 그게 안되네요. 이거 하나로 몇일째인지 몰라요.ㅠ.ㅠ
구현은 아래와같이 되었구여.... 제 나름대로 붙여봤지만 안돼네요.
그래서 제가한건 다지웠구요. 제일 기본적으로 돌아가는 것만 놓았어요.
고수 오빠, 언니들 부탁합니다.
procedure TFnab.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
with Fprint.DBGrid1.DataSource.DataSet do
begin
GotoBookmark(pointer(Fprint.DBGrid1.SelectedRows.Items[RowCnt]));
qrlNo.Caption := Fprint.DBGrid1.Fields[0].AsString;
qrlDesc.Caption := Fprint.DBGrid1.Fields[1].AsString;
qrlSpc.Caption := Fprint.DBGrid1.Fields[12].AsString;
qrlQty.Caption := Fprint.DBGrid1.Fields[7].AsString;
qrlprice.Caption := Fprint.DBGrid1.Fields[9].AsString;
qrlResult.Caption := intTostr(strToint(qrlQty.Caption) * strToint(qrlprice.Caption));
Inc(RowCnt);
end;
end;
델파이코리아에가시면 꼭 맞는 정답이 있습니다.
선아 wrote:
> 출력폼 디비그리드서 멀티 셀렉트한 것만 넘어오게 만들었는데, 레포트에는 고정적으로
> 디테일에 16칸 출력해야해요. 선택한 자료가 16개가 되지않으면 레프트에는 선택된
> 데이타이외는 빈칸만 보여줘야 하는데 그게 안되네요. 이거 하나로 몇일째인지 몰라요.ㅠ.ㅠ
> 구현은 아래와같이 되었구여.... 제 나름대로 붙여봤지만 안돼네요.
> 그래서 제가한건 다지웠구요. 제일 기본적으로 돌아가는 것만 놓았어요.
> 고수 오빠, 언니들 부탁합니다.
>
> procedure TFnab.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
> with Fprint.DBGrid1.DataSource.DataSet do
> begin
> GotoBookmark(pointer(Fprint.DBGrid1.SelectedRows.Items[RowCnt]));
> qrlNo.Caption := Fprint.DBGrid1.Fields[0].AsString;
> qrlDesc.Caption := Fprint.DBGrid1.Fields[1].AsString;
> qrlSpc.Caption := Fprint.DBGrid1.Fields[12].AsString;
> qrlQty.Caption := Fprint.DBGrid1.Fields[7].AsString;
> qrlprice.Caption := Fprint.DBGrid1.Fields[9].AsString;
> qrlResult.Caption := intTostr(strToint(qrlQty.Caption) * strToint(qrlprice.Caption));
> Inc(RowCnt);
> end;
>
> end;