為了解決Crystal Report 無法在Win 7上執行的問題
所找到的解決辦法,就是改為RDC Report 的方式
http://p2p.wrox.com/vb-how/30308-vb6-crystal-report-10-a-2.html
Here is a solid answer DRock that i took from another forum
Project > Components, add a reference to the Crystal Reports ActiveX
Designer Run Time Library (CRAXDRT.DLL)
From Project > Components, choos the Crystal ActiveX Report Viewer
library 10.0 (crviewer.dll)
Create a form with a CR Viewer object on it. Resize as needed.
Here's the absolute minimum code neede to run a report
Dim crxApp As CRAXDRT.Application
Dim crxRpt As CRAXDRT.Report
Set crxApp = New CRAXDRT.Application
Set crxRpt = crxApp.OpenReport("C:\MyReport.rpt")
'To View the report
CRViewer.ReportSource = crxRpt
CRViewer.ViewReport
'To print the report straight to the printer, prompting _
the user for the # of pages
crxRpt.PrintOut False
http://p2p.wrox.com/vb-how/30308-vb6-crystal-report-10-a-2.html
http://www.mahipalreddy.com/cr/article52645.htm
http://www.xtremevbtalk.com/showthread.php?t=175934
http://sophiecheng.spaces.live.com/blog/cns!A88551252299771F!218.entry
craxdrt.dll ==>C:\Program Files\Seagate Software\Report Designer Component
crviewer.dll ==>C:\Program Files\Seagate Software\Viewers\ActiveXViewer
crviewer.oca ==>C:\Program Files\Seagate Software\Viewers\ActiveXViewer
>Datasource Rcordset
http://www.xtremevbtalk.com/showthread.php?t=92199
>Crystal Report CRViewer
中文亂碼問題 把有中文字的欄位在報表上設為標楷體
http://www.cnblogs.com/CodingPerfectWorld/archive/2010/05/06/1728674.html
>Formula
http://www.mahipalreddy.com/cr/crcodes1.htm
FormulaField
Dim strItems() As String
ReDim strItems(rst1.RecordCount)
http://www.vbexplorer.com/VBExplorer/vb_feature/oct2000/passing_array_to_function.asp
http://www.developerfusion.com/thread/28348/pass-parameter-from-vb6-to-crystal-report-85/
http://tek-tips.com/viewthread.cfm?qid=1519905&page=183
