quickreport 如何分成两栏

Question

quickreport 如何分成两栏
如
----------------------------------------------------------------------
姓名      性别                     |姓名        性别
-----------------------------------------------------------------------
张三      男                       |李斯        女

Answer 1

QR-->Properties Page: columns=2

Answer 2

双击quickreport 在属性页中设置columns为2就行了

Answer 3

在QuickRep1NeedData(Sender: TObject;var MoreData: Boolean);中写
moredata:=true;
with Query1 do
 begin
  if not eof then
    beign
      for i:=1 to 2 do
        if i=1 then 
          begin
           QRLabel1.caption:=fieldbyname('nmae').asstring;//张三
           QRlabel2.caption:=fieldbyname('sex').asstring;//男
          end;
        if i=2then 
          begin
           QRLabel3.caption:=fieldbyname('nmae').asstring;//李四
           QRlabel4.caption:=fieldbyname('sex').asstring;
          end;
         next;
       end;
      if eof then
         moredata:=false;
 end;