我是使用QREPORT來做列印的功能， 資料庫是用BDE， 欄位的資料來源都是從另一個FORM抓過來的， 我希望列印出的樣式如下， 廠商名稱 碼數 單價 金額....rbTitle aaaaa 10 10 100....rbDetail bbbbb 10 10 100 因為金額的欄位沒有在資料庫中， 希望再列印的時候在計算， 不知道計算的算是要寫在哪， 可以使用QREXPR嗎.... 如果是的話要如何使用， 請會的大師指點迷津一下..........

用TQRExpr元件，然後設定它的Expresstion屬性為來源資料的[碼數]*[單價]即可

若金額是總額的話在先設個全域變數
var kint:integer;
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
   kint:=0;
end;    procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   kint:=kint table1.fieldbyname('金額').asinteger;        
end;
再拉一個Tqrlabel到DetailBand內
procedure TForm1.QuickRep1AfterPrint(Sender: TObject);
begin
    qrlabel1.caption:=inttostr(kint);
end;    若是要show出每筆record的金額,直接在DetailBand中拉一個Tqrlabel
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
    qrlabel1.caption:=table1.fieldbyname('金額').asstring;
end;

「堅持」從洗馬桶做起 Aric

payne請問一下..... 我用TQRExpr元件，然後設定它的Expresstion， 但是不知道要怎麼寫， 我的資料來源是由其他FORM來的， 所以不知道有沒有關係........ 下面是測試的程式， 請指點一下...... [form1.table1.碼數]*[form1.table1.單價]