안녕하세요?

제가요 지금 프린트할때 QuickRep를 사용하고 그위에 쿼리놓고 제가 원하는 것만 프린트하려고 하는데 잘 안되네요. 아래 소스입니다.

stringgrid에 primary키만 있는데 그걸 선택했을 때 db에서 해당 데이타를 불러와 출력하는 겁니다. 출력 record를 여러줄입니다.



procedure TF_printAll.QuickRep1NeedData(Sender: TObject;

var MoreData: Boolean);

begin

sabc := inqryform.sg_master.cells[3,j;

with Qry_PrintAll do

begin

Close;

sql.clear;

sql.add('select * from tablename);

sql.add('where sabc = '''+sabc+'''');

open;

while not eof do

begin

QRL_date.Caption := fieldbyname('sdate').asstring;

QRL_cac.Caption := fieldbyname('scac').asstring;

QRL_fno.Caption := fieldbyname('sfno').asstring;

QRL_mark.Caption := fieldbyname('smark').asstring;

QRL_mile1.Caption:= fieldbyname('smile1').asstring;

QRL_mile2.Caption:= fieldbyname('smile2').asstring;

QRL_mile3.Caption:= fieldbyname('smile3').asstring;

QRL_mile4.Caption:= fieldbyname('smile4').asstring;

next;

end;

end;

end;

어디가 틀린건지 고수님들에게 부탁드립니다.