VFP 愛用者社區

[jakan9]

在報表列印時,在明細區域中可否條件式列印,某條件印一行資料列,某條件印二行資料列

[bx1166]

當然可以
你可以在form裡設定條件
也可以用輸出到印表機的過程裡 過濾你的條件
加條件跑跑看

[jakan9]

不知要如何用,可否說明確一點,例如欄位有資料才列出來,沒有資料不要印,
不要印的這一列,印出時會有空白列,可否不要有空白列,這一列刪除.

[bx1166]

例如:
set printer on
go top
do while .not. eof()
if len(alltrim(myfield))>3
? space(10)+myfield+"Your filed and list of data"
endif
skip
enddo
?
set print off

[jakan9]

感謝指導!!!!
這是以前dos 版的寫法,如何用在報表檔frt,frx中才可預視,實在是很難,可是又是老板要求

[syntech]

假設你不計任何代價的話.

本來是這樣的cursor:
＋－－－－－－－－－－－－－－－－－－－－－－－＋
｜ｆｉｅｌｄ１　｜ｆｉｅｌｄ２　｜ｆｉｅｌｄ３　｜
＋－－－－－－－－－－－－－－－－－－－－－－－＋
｜１００１　　　｜　ａａａ　　　｜　ｂｂｂ　　　｜
＋－－－－－－－－－－－－－－－－－－－－－－－＋
｜１００２　　　｜　ｃｃｃ　　　｜　　　　　　　｜
＋－－－－－－－－－－－－－－－－－－－－－－－＋
｜１００３　　　｜　ｄｄｄ　　　｜　ｅｅｅ　　　｜
＋－－－－－－－－－－－－－－－－－－－－－－－＋

做成這樣的CURSOR:
＋－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＋
｜ｆｉｅｌｄ１　｜ｆｉｅｌｄ２　｜ｆｉｅｌｄ３　｜ｒｅｍａｒｋ　｜
＋－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＋
｜１００１　　　｜　ａａａ　　　｜　ｂｂｂ　　　｜１　　　　　　｜
＋－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＋
｜１００１　　　｜　ａａａ　　　｜　ｂｂｂ　　　｜２　　　　　　｜
＋－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＋
｜１００２　　　｜　ｃｃｃ　　　｜　　　　　　　｜１　　　　　　｜
＋－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＋
｜１００３　　　｜　ｄｄｄ　　　｜　ｅｅｅ　　　｜１　　　　　　｜
＋－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＋
｜１００３　　　｜　ｄｄｄ　　　｜　ｅｅｅ　　　｜２　　　　　　｜
＋－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＋

然後在明細列中,先放一個物件列印FIELD2,列印條件為REMARK = 1
同一列上再放一個物件列印FEILD3,列印條件為REMARK = 2,
在列印FIELD1的物件的列印條件上"列印重複值"選否.

然後你預覽的時候就會看到你要的結果了.





應該吧,我沒有自己試看看..... XD

[bx1166]

也對啦

直接將你的條件 copy to cursor
讓那個cursor 去跑你的報表也是個辦法 !

[jakan9]

感謝各位指導,

山不轉路轉,終於做出來了,謝謝指導!!!

[goodnight]

能不能分享一下做法

[jakan9]

就是用第6樓syntech 的作法
1.先資料整理.cursor 中有二欄位,二欄位都有資料要列,則同一筆資料,就要有二筆,若只有一個欄位有資料要列印,則只要有一筆.
2.在列印區域中,將二個欄位,標示remark=1印第一個欄位,,標示remark=2印第二個欄位,兩個欄位在列印區域中要重畳,這樣就作出來了.

[ckp6250]

我個人的習慣，多數情況下，做報表前都先產生 cursor ，再利用該 cursor 去跑報表，這樣一來，要 Where 要 order 都方便

[syntech]

其實這類奇怪的技巧,
只要多去思考開發工具的特性,
就可以變化出來.