我用参数DtpFrom.Text
和DtpTo.Text
执行了一个查询。我只需要在文本对象的报表上显示参数(FromDate
&ToDate
)
Dim rpt As New TrialBalance_ 'The report created.
Try
Dim comd As New OracleCommand("select Jv_acc_name, sum(debit) as debit, sum (CREDIT) as Credit from VOUCHER_DETAIL GROUP BY jv_acc_name order by JV_ACC_NAME", sgcnn)
comd.Parameters.Add("From", OracleDbType.Varchar2).Value = DtpFrom.Text
comd.Parameters.Add("To", OracleDbType.Varchar2).Value = DtpTo.Text
Dim da As New OracleDataAdapter(comd)
Dim dt As New DataTable()
da.Fill(dt)
rpt.SetDataSource(dt)
CrvTrialBalance.ReportSource = rpt
rpt.Refresh()
Catch ex As Exception
MsgBox(ex.Message)
End Try
请告诉我我需要做些什么......
在Crystal Reports设计中创建参数DtpFrom,DtpTo。
将它们放在您希望它们显示的报告上。
通过代码传递参数:
//supposing rpt is a ReportDocument
rpt.SetParameterValue("DtpFrom", DtpFrom.Text);
rpt.SetParameterValue("DtpTo", DtpTo.Text);