原文連結

'建立一個你的報表物件
Dim crReport As YourReportType = New YourReportType()

'取得你的DataSet
Dim dsTemp As DataSet = GetDataSetFactory.ProduceYourDataSet()

'設定資料來源
MyPathReport.SetDataSource(dsTemp)

'設定報表參數(如果你有參數要傳進去的話)

'建立一個報表參數
CrystalDecisions.Shared.ParameterDiscreteValue MyPara =
New CrystalDecisions.Shared.ParameterDiscreteValue()

'宣報一個參數集物件
Dim MyValues As CrystalDecisions.Shared.ParameterValues

'設定參數值
MyPara.Value = "YourParamaterValue"

'取得你要設定的參數集物件
MyValues = crReport.DataDefinition.
ParameterFields("ParaName").CurrentValues()

'將參數加入
MyValues.Add(MyPara)

'將參數集設定回你要設定的參數
crReport.DataDefinition.
ParameterFields("ParaName").ApplyCurrentValues(MyValues)

'設定Viewer的 報表來源
CrystalReportViewer1.ReportSource = MyPathReport