vb.net 2008 CrystalReportViewer 未将对象引用设置到对象的实例(c/s模式)

be_yourself29 2009-05-08 01:58:51

我用push的方式做的水晶报表，但是处理到CrystalReportViewer1.ReportSource = oRpt这个地方的是后会报错，请大家帮帮忙，谢谢了

代码
Imports System.Web.Configuration
Imports System.Data.SqlClient
Namespace Form.product
Public Class Form2
Inherits System.Windows.Forms.Form
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myConnection As New OracleClient.OracleConnection
myConnection.ConnectionString = "Data Source=XE;User Id=BWMS;Password=BWMS;"
Dim MyCommand As New OracleClient.OracleCommand
MyCommand.Connection = myConnection
MyCommand.CommandText = "Select * from PRODUCTSTOCKOUT"
MyCommand.CommandType = CommandType.Text
Dim MyDA As New OracleClient.OracleDataAdapter
MyDA.SelectCommand = MyCommand
Dim myDS As New DataSet2
'这就是我们在设计模式上使用的DataSet
MyDA.Fill(myDS, "PRODUCTSTOCKOUT")
'你不得不使用与你前面DataSet相同名字。
Dim oRpt As New ProductOutStockReport_1
' 水晶报表绑定
oRpt.SetDataSource(myDS)
' 设定水晶报表的ReportSource
CrystalReportViewer1.ReportSource = oRpt
End Sub
Friend WithEvents CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer

Private Sub InitializeComponent()
Me.CrystalReportViewer1 = New CrystalDecisions.Windows.Forms.CrystalReportViewer
Me.SuspendLayout()
'
'CrystalReportViewer1
'
Me.CrystalReportViewer1.ActiveViewIndex = -1
Me.CrystalReportViewer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.CrystalReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.CrystalReportViewer1.Location = New System.Drawing.Point(0, 0)
Me.CrystalReportViewer1.Name = "CrystalReportViewer1"
Me.CrystalReportViewer1.SelectionFormula = ""
Me.CrystalReportViewer1.Size = New System.Drawing.Size(605, 426)
Me.CrystalReportViewer1.TabIndex = 0
Me.CrystalReportViewer1.ViewTimeSelectionFormula = ""
'
'Form2
'
Me.ClientSize = New System.Drawing.Size(605, 426)
Me.Controls.Add(Me.CrystalReportViewer1)
Me.Name = "Form2"
Me.ResumeLayout(False)

End Sub
End Class
End Namespace

...全文