quickrepport如何设置每页的固定行数，不足一页时补足空行?

Question

从数据库中查到的数据，是人员的日志数据，我想每页打31行，正好是每天的数据，如果不足31行，怎么换到另外一页呢。大虾帮忙。

Answer 1

我也想知道，如果有人知道，请把DELPHI和BCB的代码帖出来大家一起看一下或者讲一下编程思路也好。多谢了。

Answer 2

        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;