如果database內有一文字欄位, 但文字的多少不一, 一些只有一個字, 甚至 為空, 但一些可能有三百個字, 若想在QReport內的rtDetail中用QRDBText列出 這欄位, 如何當它只有少於20字時, QRDBText和rtDetail只顯示一行, 但當 該欄位的字多時, 可以顯示兩行, 甚至三行呢(當然,文字在QRDBText內要換行)? DELphi==

------
DELphi==

Hi:    在 rtDetail中 拉一個 QRRichText  或 QRMemo 並將 AutoStretch 設為 True(經測試 QRMemo 效果較佳)，在 rtDetail 的 BeforePrint 事件中，將值塞入  QRRichText  或 QRMemo 中即可。

procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
    QRRichText1.Lines.Clear;
    QRRichText1.Lines.Add(Query1.FieldByName('CUSTOMER_NAME').AsString);
    QRMemo1.Lines.Clear;
    QRMemo1.Lines.Add(Query1.FieldByName('CUSTOMER_NAME').AsString);
end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

Hi:    剛剛又看了一下，好像有一個 QRDBRichText 元件，你可以先試試看，若不滿意再考慮用 QRMemo，因我用 QRRichText 再跳行時似乎有點問題 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

Fishman 大大 您好 如果我還有用QRShape畫格子 那我可以在哪個事件中判斷 讓QRShape依QRMemo 的高度調整高度 我試過在QRBandBeforePrint 好像都不行耶 而且就算QRMemo 有很多行 但是它的Height還是不會改變耶 謝謝指教

check this http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41530 不過,有時候還是會..怪怪的 用rave report可以徹底解決

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47347  ， 试试，看看能不能帮到你。 發表人 -

function Tfrmistosm_pr.mychiwrap(m:string;long:integer):string; var   shu:integer; begin    result:='';    for shu:=1 to length(m) do       begin         if ((shu mod long)=1) and (shu>1) then            result:=result+chr(32)+copy(m,shu,1)         else            result:=result+copy(m,shu,1);       end;    end;    procedure Tfrmistosm_pr.DetailBand1BeforePrint(Sender: TQRCustomBand;   var PrintBand: Boolean); begin   Qrlabel12.Caption :=myChiWrap(frmistosm.Quistosm.FieldByName('na1').AsString,10); end;  试试看?

一般使用時可以向 Fishman 說明的使用 如果兩個QRMemo放再同一個Band 好像高度會自動增高約一行的高度 目前我使用的方法如下: 在BeforePrint 加入 Sender.Height:=1; //加入這一行之後 Band 的高度會自動調整 這是小弟的使用心得