Passing parameters to crystl Report at runtime using vb.et
-
hello i m using vb.net 2005 and crystal report 9 the problem is that when i pass the parameters to my report the crystal report viewer that is on another does not show the report my code is below Dim reportdocument As New ReportDocument Dim strRptPath As String strRptPath = "d:\Attendance System\Attendance Reports\TodayAbsRpt.rpt" reportdocument.Load(strRptPath) Dim todayval As Long Dim paramfields As New ParameterFields Dim paramfield As New ParameterField Dim paramdisval As New ParameterDiscreteValue todayval = Me.DTPsdate.Text.Substring(6, 4) & Mid(Me.DTPsdate.Text, 4, 2) & Me.DTPsdate.Text.Substring(0, 2) paramfield.ParameterFieldName = "DpttNm" paramdisval.Value = Me.cmbDptt.Text paramfield.CurrentValues.Add(paramdisval) paramfields.Add(paramfield) paramfield = New ParameterField paramfield.ParameterFieldName = "pDate" paramdisval.Value = todayval paramfield.CurrentValues.Add(paramdisval) paramfields.Add(paramfield) Dim frm As New FrmRpt(reportdocument) frm.CrystalReportViewer1.ParameterFieldInfo = paramfields frm.CrystalReportViewer1.ReportSource = reportdocument frm.Show() please help me out ,ur help is highly appreciated
-
hello i m using vb.net 2005 and crystal report 9 the problem is that when i pass the parameters to my report the crystal report viewer that is on another does not show the report my code is below Dim reportdocument As New ReportDocument Dim strRptPath As String strRptPath = "d:\Attendance System\Attendance Reports\TodayAbsRpt.rpt" reportdocument.Load(strRptPath) Dim todayval As Long Dim paramfields As New ParameterFields Dim paramfield As New ParameterField Dim paramdisval As New ParameterDiscreteValue todayval = Me.DTPsdate.Text.Substring(6, 4) & Mid(Me.DTPsdate.Text, 4, 2) & Me.DTPsdate.Text.Substring(0, 2) paramfield.ParameterFieldName = "DpttNm" paramdisval.Value = Me.cmbDptt.Text paramfield.CurrentValues.Add(paramdisval) paramfields.Add(paramfield) paramfield = New ParameterField paramfield.ParameterFieldName = "pDate" paramdisval.Value = todayval paramfield.CurrentValues.Add(paramdisval) paramfields.Add(paramfield) Dim frm As New FrmRpt(reportdocument) frm.CrystalReportViewer1.ParameterFieldInfo = paramfields frm.CrystalReportViewer1.ReportSource = reportdocument frm.Show() please help me out ,ur help is highly appreciated