我首次使用Report，所有的書都以TTable作說明，但我想用ADO Query來做，在detail band 放一個TQRDBText  Name=ID，以下程式做得對嗎? 目前為止，我只能顯示出Header，請求前輩們協助，不勝感激!     

 
procedure TIDOutRepForm.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
    qrIDOut.Close;
    qrIDOut.SQL.Clear;
    qrIDOut.SQL.Add(RepSQL);
    qrIDOut.ExecSQL;
    qrIDOut.Open;
    While not qrIDOut.Eof do begin
      ID.Caption := qrIDOut.FieldbyName('ID').AsString ;
      qrIDOut.Next;
    end;
end;    

你不應該寫在quickrep的onBeforePrint,而是應該寫在你 Button按下後的onclick event上 另外內容改成 procedure TIDOutRepForm.QuickRepBeforePrint(Sender: TCustomQuickRep;   var PrintReport: Boolean); begin     qrIDOut.Close;     qrIDOut.SQL.Clear;     qrIDOut.SQL.Add(RepSQL);     qrIDOut.Open;     QuickRep.preview;     qrIDOut.close; end;    

引言: 我首次使用Report，所有的書都以TTable作說明，但我想用ADO Query來做，在detail band 放一個TQRDBText Name=ID，以下程式做得對嗎? 目前為止，我只能顯示出Header，請求前輩們協助，不勝感激!

 
procedure TIDOutRepForm.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
    qrIDOut.Close;
    qrIDOut.SQL.Clear;
    qrIDOut.SQL.Add(RepSQL);
    qrIDOut.ExecSQL;
    qrIDOut.Open;
    While not qrIDOut.Eof do begin
      ID.Caption := qrIDOut.FieldbyName('ID').AsString ;
      qrIDOut.Next;
    end;
end;    

非常感謝版主，依您的建議，把它改寫在Button按下後的onclick event上，同時指定欲顯示ID欄位的DataSet、DataField，它已能正常顯示了，真好，謝謝! [quote] 你不應該寫在quickrep的onBeforePrint,而是應該寫在你 Button按下後的onclick event上 另外內容改成 procedure TIDOutRepForm.QuickRepBeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin qrIDOut.Close; qrIDOut.SQL.Clear; qrIDOut.SQL.Add(RepSQL); qrIDOut.Open; QuickRep.preview; qrIDOut.close; end; [quote]