디비그리드에 항상 포인터(▶)가 있잖아요...
현재 어떤 칼럼이 선택된건지 알려주는.......
디비그리드에서 오른쪽마우스 누르면 [인쇄]팝업이 뜨거든요..
거기서 미리보기나 인쇄를 하면 항상 현재 포인터(▶)가 가리키고 있는
칼럼만 데이타가 들어있는 줄만큼 찍힙니다.
지금 디비에 5개 행이 들어있는데... 3번이 선택된 경우라면...
3번 행만 5줄이 찍힙니다.
왜 그런건가요...? 쩜 알려주세요.... 이유를 잘 몰겠습니다요...
procedure TfrmQlistPrev.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
with frmQlist.qryQlist do begin
qrlNum.Caption := fieldbyname('NUM').value;
qrlCid.Caption := fieldbyname('CID').asstring;
qrlCoid.Caption:= fieldbyname('COID').AsString;
qrlDate.Caption:= fieldbyname('RDATE').AsString;
qrlCont.caption:= fieldbyname('CONTENT').asstring;
qrlAdate.Caption:=fieldbyname('PDATE').asstring;
qrlAns.Caption := fieldbyname('ANSWER').asstring;
qrlPro.caption := fieldbyname('PROCESS').asstring;
qrlPath.caption:= fieldbyname('CONPATH').asstring;
end;
end;
테스트를 안햇는데 될지 모르겠습니다..
with frmQlist.qryQlist do
begin
While Not EOF do
begin
qrlNum.Caption := fieldbyname('NUM').value;
qrlCid.Caption := fieldbyname('CID').asstring;
qrlCoid.Caption:= fieldbyname('COID').AsString;
qrlDate.Caption:= fieldbyname('RDATE').AsString;
qrlCont.caption:= fieldbyname('CONTENT').asstring;
qrlAdate.Caption:=fieldbyname('PDATE').asstring;
qrlAns.Caption := fieldbyname('ANSWER').asstring;
qrlPro.caption := fieldbyname('PROCESS').asstring;
qrlPath.caption:= fieldbyname('CONPATH').asstring;
Next ;
end;
end;