我用dataset作为水晶报表的数据源,为什么每次都显示所有记录,而不是dataset中的记录
我用dataset作为水晶报表的数据源,为什么每次都显示所有记录,而不是dataset中的记录,代码如下
Dim frmRpt As New frmReport
Dim rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim LogOnInfo As New CrystalDecisions.Shared.TableLogOnInfo
rpt.Load(Application.StartupPath & "\Reports\cr_" & Me.Text & "_GYS.rpt")
LogOnInfo.ConnectionInfo.ServerName = "."
LogOnInfo.ConnectionInfo.DatabaseName = "UFDATA_001_2006"
LogOnInfo.ConnectionInfo.UserID = "sa"
LogOnInfo.ConnectionInfo.Password = "sqldba"
rpt.SetParameterValue("strTitle", Hot.Base.strFirmName & Me.Text)
rpt.SetParameterValue("strZBR", Hot.Base.UserInfo.UserName)
rpt.SetParameterValue("strZBDW", Hot.Base.strFirmName)
rpt.PrintOptions.PaperSize = CrystalDecisions.[Shared].PaperSize.PaperA4
rpt.Database.Tables(0).ApplyLogOnInfo(LogOnInfo)
rpt.SetDataSource(ds.Tables(0))
frmRpt.CrystalReportViewer1.ReportSource = rpt
frmRpt.ShowDialog()
frmRpt.Dispose()