Dim ckllbrptsql As String = "select * from ckllb where 年份='" & nstr & "' and 月份='" & ystr & "' " Label2.Text = ckllbrptsql Dim bbclcmd As New OracleCommand(ckllbrptsql, llbrptconn) bbclcmd.CommandType = CommandType.Text bbcla.SelectCommand = bbclcmd bbcla.Fill(bbcls, "ckllb")

DataGrid1.DataSource = bbcls.Tables("ckllb")

Dim llbRpt As New pjckllqkb llbRpt.SetDataSource(bbcls.Tables("ckllb"))‘设定报表数据源。已经设好pjckllqkb格式和相应公式

Me.CrystalReportViewer1.ReportSource = llbRpt llbrptconn.Close()

执行后， DataGrid1显示正常，而CrystalReportViewer1却显示为空，请问为什么？？？ 怎样解决？