将所有显示部分改为QRLABEL inc(i);//i是一個全局變量 //qr不要設置dataset(即為空),BeforePrin裡面dataset.first;//設置為第一記錄 //在onneeddata裡面, //因為以前搞過,都過了比較久了,你試試看看行不行 if not ADOQuery1.Eof then begin QRLabel2.Caption:=ADOQuery1.Fields[1].AsString; QRLabel3.Caption:=ADOQuery1.FieldByName('SL').AsString;//+ADOQuery1.FieldByName('DW').AsString; ADOQuery1.Next; if i<=20 then MoreData:=true else begin QuickRep1.NewColumn; i:=0; MoreData:=true; end; end else begin QRLabel2.Caption:=''; QRLabel3.CaptioN:=''; if i=20 then MoreData:=false; end;
另外我要清楚的是,我在Detail行里的记录数最多也不会超过12行,顶多也就是10行左右,
少则2行到3行,但我想固定高度为12行,应该怎样做?
inc(i);//i是一個全局變量
//qr不要設置dataset(即為空),BeforePrin裡面dataset.first;//設置為第一記錄
//在onneeddata裡面,
//因為以前搞過,都過了比較久了,你試試看看行不行
if not ADOQuery1.Eof then
begin
QRLabel2.Caption:=ADOQuery1.Fields[1].AsString;
QRLabel3.Caption:=ADOQuery1.FieldByName('SL').AsString;//+ADOQuery1.FieldByName('DW').AsString;
ADOQuery1.Next; if i<=20 then
MoreData:=true
else
begin
QuickRep1.NewColumn;
i:=0;
MoreData:=true;
end;
end
else
begin
QRLabel2.Caption:='';
QRLabel3.CaptioN:=''; if i=20 then
MoreData:=false;
end;