如何用数组实现动态打印分页？救救我，高手请进，谢谢

Question

在formcreat中写quickrep1.previwer
在detailband中调用数组，写newpage

Answer 1

在detailband中不能调用数组动态生成qrlabel,这个方法我实验过，只可以生成
label,失眠夜你还有什么好方法吗？谢谢你

Answer 2

procedure TForm1.QuickRep1NeedData(Sender: 
TObject; var MoreData: Boolean);
var
  I: integer;
begin
  MoreData := True;
  for I:= 1 to 2 do
  begin
    if Table1.Eof then Break;
    case I of
      1: QRLabel1.Caption := 
Table1.FieldByName('Name').AsString;
      2: QRLabel2.Caption := 
Table1.FieldByName('Name').AsString;
    end;
    Table1.Next;
  end;
  if Table1.Eof then MoreData := False;
end;稍微修改一下应该就可以符合要求

Answer 3

我没有用到到表，而是直接用到了数组，如qrlbabel.caption:=x[i];
thanks,but i can not do top of you