作者unget (零缺點(武夷軍威))
看板Visual_Basic
標題Re: [VB6 ] Report
時間Fri Apr 7 12:54:15 2006
※ 引述《fumizuki (矇面加菲獅)》之銘言：
: 用了vb這麼多年，對於列印一直有很大的困擾，
: 直式橫書、橫式直書，資料由上而下輸出，
: 用 DataReport 或 Crystal Report 都很容易達成，
: 如果資料是由左而右輸出的話， Crystal Report 還提供交叉表，亦可達成
: 但是問題來了...
: 交叉表沒有左上的標題欄，也沒有上方的標題欄，
: Column Name 也似乎只能指定為一個欄位的值，
: ┌───────────────────────────────────┐
: ∣ Ａ ∣
: ├──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┤
: ∣ Ｂ ∣ Ｃ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣ Ｄ ∣
: ├──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┤
: ∣ Ｅ ∣ Ｆ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣
: ├──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┤
: ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣ ∣
: ├──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┤
: .
: .
: .
: Ａ是報表的標題 ex. 中國廚藝學院出勤統計表
: Ｂ是說明Ｃ和Ｅ
: Ｃ是Column Data ex. 休假類別
: Ｅ是Row Data ex. 姓名
: Ｄ是額外的欄位 ---> 全勤 如果沒休假下面就顯示全勤之類的文字
: Ｆ是統計的資料
: Ｃ、Ｅ、Ｆ 都沒問題，但是Ａ、Ｂ、Ｄ不知道該如何設計
: 有高手能指點迷津嗎Q.Q
: P.S. 限制要除了 Printer 物件以外的高招才行XD
因為我不知道你是不是用 crystal report ..
以前我也沒摸過.最近到公司上班.一天要開發10幾個crystal報表給主管
我的寫法都是這樣的
關於A的部份
設定一個 Formula 設定為 title ...但是editer 裡面不要編譯任何資料
在vb裡面
str_title = str_title & "中國廚藝學院出勤統計表"
RPT.Formulas = "title = '" & str_title & "'"
類似這樣就可以做出你要的ABD
RPT.ReportFileName = 'XXX' 'XXX = 報表位置
RPT.Connect = "ServerXX.XX.X.X;uid=;pwd=" '如果有連結資料庫
RPT.Action = 1 '呼叫出報表
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.70.169.99
※ 編輯: unget 來自: 203.70.169.99 (04/07 12:59)
1F：推 fumizuki:我用的是 Crystal Report 沒錯 04/07 13:02
2F：推 fumizuki:RPT 是指....? 不過我用的報表是加在專案中的呀 04/07 13:02
3F：推 unget:如果有問題可以再用mail來討論.. 04/07 13:02
4F：→ unget:RPT是指VB控制項..控制項元件名稱Crystal report control 04/07 13:03
5F：→ unget:元件檔案檔名是crystl32.ocx 04/07 13:05
6F：→ unget:如果有安裝crystal report 應該會有 04/07 13:05
7F：推 fumizuki:soga 04/07 13:05
8F：→ unget:我的作法通常都事先作crystal report報表 04/07 13:06
9F：推 fumizuki:我這邊是用 crystal viewer 04/07 13:06
10F：→ unget:然後再form裡面拉一個rpt元件.設定名稱RPT 04/07 13:06
11F：→ unget:viewer用起來感覺上很像data report.. 04/07 13:07
12F：推 unget:viewer 的話..建議你拉text在去修改你要的標題 04/07 13:11
13F：→ unget:不知道可不可行 04/07 13:11
14F：推 fumizuki:可以 ....text1.settext "我是標題" 04/07 19:13