在来自 vb.net 的 crystal 报告中显示查询参数
Show query parameter in crystal report from vb.net
我使用参数 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 报表设计中创建参数 DtpFrom、DtpTo。
将它们放在您希望它们出现的报告中。
通过代码传递参数:
//supposing rpt is a ReportDocument
rpt.SetParameterValue("DtpFrom", DtpFrom.Text);
rpt.SetParameterValue("DtpTo", DtpTo.Text);
我使用参数 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 报表设计中创建参数 DtpFrom、DtpTo。
将它们放在您希望它们出现的报告中。
通过代码传递参数:
//supposing rpt is a ReportDocument
rpt.SetParameterValue("DtpFrom", DtpFrom.Text);
rpt.SetParameterValue("DtpTo", DtpTo.Text);