在水晶报表中使用带参数的命令数据源

在VB2005中添加一Crystal Report取名为CommandSQL.rpt，用SQL命令做为其数据源，

命令如下：

select pa_no,dp_no,wa_no,pa_id from iepa00h where pa_no='{?pano}'

其中?pano为一字符类型的参数，注意 where pa_no='{?pano}'不能写成 where pa_no={?pano}，否则当输入字符值时会提示列名无效

 

在VB2005中调用RPT的代码如下

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click frmReportView.reportDocument1.Load("F:/TEST/DGSJ/用VB2005開啟RPT文件/VBOpenRpt/VBOpenRpt/CommandSQL.rpt") Dim LogonInfo As New CrystalDecisions.Shared.TableLogOnInfo LogonInfo.ConnectionInfo.ServerName = "Jesse" LogonInfo.ConnectionInfo.DatabaseName = "Salary" LogonInfo.ConnectionInfo.UserID = "iemis" LogonInfo.ConnectionInfo.Password = "ooooo" frmReportView.reportDocument1.Database.Tables.Item(0).ApplyLogOnInfo(LogonInfo) Dim ParaValues As New CrystalDecisions.Shared.ParameterValues Dim ParaDisValue As CrystalDecisions.Shared.ParameterDiscreteValue ParaDisValue = New CrystalDecisions.Shared.ParameterDiscreteValue ParaDisValue.Value = "A0302017" ParaValues.Add(ParaDisValue) frmReportView.reportDocument1.DataDefinition.ParameterFields("pano").ApplyCurrentValues(ParaValues) frmReportView.CrystalReportViewer1.ReportSource = frmReportView.reportDocument1 frmReportView.Show() End Sub