Crystal report in vb.net

[Komak]

Salam,
Bache ha man 2 ta moshkel peyda karadam to barname nevisi goftam shayad shoma ha balad bashid betounid komakam koni.

avali baraye parameter pass kardan be Crystal reporte to vb.net.Albate man az crystal viewer khode .net estefade kardam vali nemitounam parameteramo be reportam pass konam.

کد:

Dim rpt As New rptIntervals()

        Dim con As SqlConnection

        Dim sql As String

        Dim da As New SqlDataAdapter

        Dim ds As New DataSet

        Dim dc As CrystalDecisions.Shared.DiscreteOrRangeKind

        con = New SqlConnection(strCon)

        con.Open()

        Sql = " SELECT     WorDescription, isnull(d14,'') as d14 ,"

        Sql &= " isnull(d29,'') as d29, isnull(d44,'') as d44,"

        Sql &= " isnull(d59,'') as d59, isnull(d74,'') as d74,"

        Sql &= " isnull(d89,'') as d89, isnull(d90,'') as d90"

        Sql &= " FROM dbo.vIntervals "

  

        da = New SqlDataAdapter(Sql, con)

        da.Fill(ds)

        rpt.Refresh()

        rpt.SetDataSource(ds.Tables(0))

        rpt.SetParameterValue("@Test", txtStartdate.Text) ***

        rpt.Refresh()

        CrystalReportViewer1.ReportSource = rpt

        rpt.Refresh()

        CrystalReportViewer1.Zoom(75)

        Publicds = ds.Copy()

In codame va un khaty ke *** dare kar nemikoneh shayad ham man balad nistam va bayad chiz digey bashe.



Lotfan age rahi baladin behem begin.Alabate bayad begam hamon joor ke mibinid man ba SQL Query reportam ro ejra mikonam.



Domin moshkelam male Subreporte. Man az yek reporte dige be unvane subreport to yek reprt estefade kardam. Data sub report hich rabty be reporte esli nadare.Vaghty run mikonam subreport khali miad.vali hamon subreport ro ke joda run mikonam dorost kar mikoneh.

in code moshkele subreportame:

کد:

Private Sub btnNewSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewSearch.Click
Dim rpt As New rptActiveCase()
Dim rptSub As New rptActiveCaseIssue()
Dim subReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim con As SqlConnection
Dim sql As String
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Dim sqlSub As String
Dim daSub As New SqlDataAdapter
Dim dsSub As New DataSet
con = New SqlConnection(strCon)
con.Open()
sql = " SELECT [Case ID], [Open Date], Name, Worker, Service, [Issue Type], Fee,OD"
Sql &= " FROM dbo.vOpenCase "
If txtStartdate.Text <> "" And txtEndDate.Text <> "" Then sql &= " WHERE (OD BETWEEN '" & txtStartdate.Text & "' AND '" & txtEndDate.Text & "')"
da = New SqlDataAdapter(Sql, con)
da.Fill(ds)
rpt.Refresh()
rpt.SetDataSource(ds.Tables(0))

sqlSub = "SELECT [Issue Type], COUNT([Issue Type]) AS Iss"
sqlSub &= " FROM dbo.vOpenCase "
If txtStartdate.Text <> "" And txtEndDate.Text <> "" Then sqlSub &= " WHERE (OD BETWEEN '" & txtStartdate.Text & "' AND '" & txtEndDate.Text & "') AND ([Issue Type] IS NOT NULL)"
sqlSub &= " GROUP BY [Issue Type]"
sqlSub &= " UNION ALL "
sqlSub &= " SELECT 'ServiceDecsription' AS Expr1, '99999' AS counting"
sqlSub &= " UNION ALL "
sqlSub &= " SELECT Service AS Description, COUNT(Service) AS counting"
sqlSub &= " FROM dbo.vOpenCase AS vOpenCase_1"
If txtStartdate.Text <> "" And txtEndDate.Text <> "" Then sqlSub &= " WHERE (OD BETWEEN '" & txtStartdate.Text & "' AND '" & txtEndDate.Text & "') AND ([Service] IS NOT NULL)"
sqlSub &= " GROUP BY Service"
sqlSub &= " UNION ALL "
sqlSub &= " SELECT 'Fee' AS Expr1, '99999' AS counting"
sqlSub &= " UNION ALL "
sqlSub &= " SELECT Fee AS Description, COUNT(Fee) AS counting"
sqlSub &= " FROM dbo.vOpenCase AS vOpenCase_1"
If txtStartdate.Text <> "" And txtEndDate.Text <> "" Then sqlSub &= " WHERE (OD BETWEEN '" & txtStartdate.Text & "' AND '" & txtEndDate.Text & "') AND ([Fee] IS NOT NULL)"
sqlSub &= " GROUP BY Fee"


daSub = New SqlDataAdapter(sqlSub, con)
daSub.Fill(dsSub)
rptSub.Refresh()
rptSub.SetDataSource(dsSub.Tables(0))
rptSub.Refresh()
subReport = rpt.OpenSubreport("rptActiveCaseIssue")
subReport.SetDataSource(dsSub)
rpt.Refresh()
CrystalReportViewer1.Zoom(75)
Publicds = ds.Copy()
CrystalReportViewer1.ReportSource = rpt
rpt.OpenSubreport("rptActiveCaseIssue")
CrystalReportViewer1.RefreshReport()
End Sub

Man kheili vaghte ba crystal report kar nakarde boodam shayad yek chizi bashe ke man yadam rafte.I

midounam ke taghazay ziady hast vali age mishe komakam konid.