機房收費系統2 vb與報表的互動

dim withevents report as grprolibctl.gri***report

private sub form_load()
dim txtsql as string
dim msgtext as string
txtsql = "select * from checkday_info where date ='" & format(date, "yyyy-mm-dd") & "'"
set report = new grprolibctl.gri***report '建立報表物件
report.detailgrid.recordset.connectionstring = connectstring() '連線資料來源
report.detailgrid.recordset.querysql = txtsql '通過select查詢建立記錄集
grdisplayviewer1.report = report
grdisplayviewer1.start '開始列印
end sub

列印：

private sub cmdprint_click()    '列印

report.[print] (true) '方法名與vb的內部定義有衝突，所以要用中括號
end sub

列印預覽：

private sub cmdpreview_click()  '列印預覽

report.printpreview (true)
end sub

private sub cmdrefresh_click()  '重新整理

grdisplayviewer1.refresh
end sub

歐了，就是這麼簡單的。因為在製作報表時，已經和資料庫有關聯了，所以在vb裡的**比較簡單，大家試試看。

機房收費系統 報表（2）

二 部分 跟之前寫的 excel 相比，我覺得報表還是有點相同的。大體思路是這樣的 先定義。報表 dim withevents 物件變數 as 類名 這種用法是載入該類的事件，withevents之後就能在 編輯窗看到該類的事件了 如果有的話 因為類不像控制項，雙擊控制項就可以進入事件編輯。使用wi...

機房收費系統 報表（2）

二 部分 跟之前寫的 excel 相比，我覺得報表還是有點相同的。大體思路是這樣的 先定義。報表 dim withevents 物件變數 as 類名 這種用法是載入該類的事件，withevents之後就能在 編輯窗看到該類的事件了 如果有的話 因為類不像控制項，雙擊控制項就可以進入事件編輯。使用wi...

機房收費系統 報表出現的問題

結賬之後讓我糾結的就是這兩個報表了，查了很多師哥師姐的部落格真的是很有幫助，但是大家都是這麼做出來時，在我這就出現了問題，要不然會讓我覺得報表有點太一帆風順了。製作報表下面有很詳細的部落格講解，就不再多餘的贅述了，我的報表也做出來了 在和vb互動的時候出現了載入路徑不正確的問題。除錯 的時候 spr...