请问在qReport中如何实现一下形式的报表！谢谢！

Question

表的格式如下：
-------------------------------------------------------
 字段1        | 字段1值       |字段2       |字段2值     |
--------------------------------------------------------
 字段3        |          字段3值                        |
--------------------------------------------------------
 字段4        | 字段4值                                 |
--------------------------------------------------------并且在一页中可以打印多个这样的表格，谢谢！

Answer 1

在QREPORT中是十分难以实现的，你一定是做VB程序的吧？在VB中可以用自带的控件是很容易实现的。但是DELPHI中的QREPORT控件不太灵活，你可以找找第三方控件，第三方控件中的报表控件很多好的。

Answer 2

不难啊！在DetailBand区画一个这样的表格不就可以吗？

Answer 3

就是不难,所有的在东东都放在HASDETAIL中就可以了
字段名用QRLABEL,字段值用QRDBTEXT就行了.

Answer 4

用Delphi控制Excel来实行。Delphi7.0版有直接对Excel操作的控件，特别好使。
这个我前段时间写的代码，希望对你有所帮助；
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Excel2000, OleServer;type
  TForm1 = class(TForm)
    ExcelWorkbook1: TExcelWorkbook;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelApplication1: TExcelApplication;
    ExcelWorksheet2: TExcelWorksheet;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
bexeclvisible: boolean;
i1,i2,j1,j2: integer;
begin
    if  application.MessageBox('启动Excel','请回答',MB_yesno+mb_defbutton2)<>idno
    then
    begin
    bexeclvisible:=true;
    end
    else
    bexeclvisible:=false;
    if  bexeclvisible then
    excelapplication1.Visible[0]:=true;
    try
      excelapplication1.Connect;
      except
      showmessage('error');
      abort;
      end;
    excelapplication1.Caption:='转换';
    excelapplication1.Workbooks.add('d:\aa\扫描电镜(第一天）5.xls',0);
    excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
    excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as  _worksheet);
    excelworksheet2.ConnectTo(excelworkbook1.Worksheets[2] as  _worksheet);
    i1:=3;
    j1:=2;
    i2:=1;
    j2:=1;    while datetimetostr(excelworksheet1.Cells.Item[3,2].value)<>'' do
    begin
        excelworksheet2.Cells.Item[i2,j2].value:=datetimetostr(excelworksheet1.Cells.Item[i1,j1].value);        excelworksheet2.Cells.Item[i2,j2+1].value:=excelworksheet1.Cells.Item[i1+3,j1].value;
        excelworksheet2.Cells.Item[i2,j2+2].value:=excelworksheet1.Cells.Item[i1+3,j1+1].value;
        excelworksheet2.Cells.Item[i2,j2+3].value:=excelworksheet1.Cells.Item[i1+3,j1+2].value;
        excelworksheet2.Cells.Item[i2,j2+4].value:=excelworksheet1.Cells.Item[i1+3,j1+3].value;
        excelworksheet2.Cells.Item[i2,j2+5].value:=excelworksheet1.Cells.Item[i1+3,j1+4].value;
        excelworksheet2.Cells.Item[i2,j2+6].value:=excelworksheet1.Cells.Item[i1+3,j1+5].value;
        excelworksheet2.Cells.Item[i2,j2+7].value:=excelworksheet1.Cells.Item[i1+3,j1+6].value;
        excelworksheet2.Cells.Item[i2,j2+8].value:=excelworksheet1.Cells.Item[i1+3,j1+7].value;
        excelworksheet2.Cells.Item[i2,j2+9].value:=excelworksheet1.Cells.Item[i1+3,j1+8].value;
        excelworksheet2.Cells.Item[i2,j2+10].value:=excelworksheet1.Cells.Item[i1+3,j1+9].value;
        excelworksheet2.Cells.Item[i2,j2+11].value:=excelworksheet1.Cells.Item[i1+3,j1+10].value;
        excelworksheet2.Cells.Item[i2,j2+12].value:=excelworksheet1.Cells.Item[i1+3,j1+11].value;
        i2:=i2+1;
        i1:=i1+12;    end;    excelworksheet2.SaveAs('d:\aa\扫描电镜(第一天）5.xls');
    showmessage('OK!');
    excelapplication1.Disconnect;
    excelapplication1.Quit;end;
end.