수고하십니다..

퀵 리포트와 밴드(Detail)는 동적으로 생성했는데요..

쿼리의 필드수에 맞게 그 밴드가 포함할 TQRDBText는 어떻게 생성하나요..

고수님들..부탁드립니다!!



여기저기 기웃거리다가 만들어본 소슨데..어디가 틀렸남요?



var

QR_test: TQuickRep;

DB_test: TQRBand;

QL_test: TQRLabel;

QT_test: TQRDBText;



begin

...



for j:=0 to QueryEvery.FieldCount -1 do begin

QT_Test := TQRDBText.Create(self);

end;



with db_test do begin

for i := 0 to ControlCount - 1 do begin

if Controls[i] is TQRDBText then begin

with TQRDBText(Controls[i]) do begin

dataset := QueryEvery;

DataField := QueryEvery.Fields[i].FieldName ;

Top := 10;

Left := (40 * j) + 5;

Width := 40;

Height := 10;

end;

end;

end;

end;



...

end;