全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1150
推到 Plurk!
推到 Facebook!

fastreport中該如何強迫換行呢??

答題得分者是:James
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-04-09 11:44:30 IP:163.17.xxx.xxx 未訂閱
如題,小弟於一MEMO中放置三個欄位,該如何才能讓三個欄位可以換行呢?? Memo15.Memo := [ITEM_DESC1] [ITEM_MEMO] [ITEM_MEMO_E]; 列印出.. [ITEM_DESC1] [ITEM_MEMO] [ITEM_MEMO_E] ======================== 我是DELPHI5的初學者
James
高階會員


發表:10
回覆:290
積分:220
註冊:2002-07-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-04-09 12:19:48 IP:61.218.xxx.xxx 未訂閱
那你為什麼不直接用 3 個 Memo 就好了呢 ?
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-04-09 13:14:49 IP:163.17.xxx.xxx 未訂閱
因為[ITEM_MEMO] [ITEM_MEMO_E]這兩個欄位不一定有值,所以當其中一個欄位為空時,就不予顯示 列印出.. [ITEM_DESC1] [ITEM_MEMO] 或 列印出.. [ITEM_DESC1] [ITEM_MEMO_E] ======================== 我是DELPHI5的初學者
James
高階會員


發表:10
回覆:290
積分:220
註冊:2002-07-25

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-04-09 15:21:46 IP:61.218.xxx.xxx 未訂閱
這個問題有點小麻煩 , 你可以試試看透過 UserFunction 的方式來處理 !
procedure TForm1.frReport1UserFunction(const Name: String; p1, p2,
  p3: Variant; var Val: Variant);
begin
  if AnsiCompareText( Name, 'AddCRLF' ) = 0 then
  begin
    Val := frParser.Calc(p1);
    if Val = '' then
    elseVal := Val   #13#10 ;
  end
end;
然後 Memo 中你可以寫成 [AddCRLF([ITEM_DESC1])][AddCRLF([ITEM_MEMO])][AddCRLF([ITEM_MEMO_E])]
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-04-09 15:54:20 IP:163.17.xxx.xxx 未訂閱
多謝James大哥的指導,小弟是這方面的初學者,可否請James 大哥告知ㄧ下UserFunction 要寫在哪裡呢?? ======================== 我是DELPHI5的初學者
James
高階會員


發表:10
回覆:290
積分:220
註冊:2002-07-25

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-04-09 17:48:28 IP:61.218.xxx.xxx 未訂閱
FrReport 元件中的 onUserFunction 事件
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-04-09 17:59:09 IP:163.17.xxx.xxx 未訂閱
多謝大哥,小弟會試試看!! ======================== 我是DELPHI5的初學者
MorganBoy
一般會員


發表:14
回覆:75
積分:22
註冊:2003-04-30

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-04-10 18:36:51 IP:61.231.xxx.xxx 未訂閱
如題,小弟於一MEMO中放置三個欄位,該如何才能讓三個欄位可以換行呢?? Memo15.Memo := [ITEM_DESC1] [ITEM_MEMO] [ITEM_MEMO_E]; 列印出.. [ITEM_DESC1] [ITEM_MEMO] [ITEM_MEMO_E] //////////////////////////////////////////////////////////// 可能可以考慮下列作法: Memo12.Memo寫成三行即可,如 樣料規格:["Item_Desc"] 樣料說明:["Item_Memo"] 樣料備註:["Item_Memo_E"]
系統時間:2024-05-05 21:40:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!