[VB.NET] براميترز كريستال ريبورت - نسخة قابلة للطباعة

كود :
Dim rpt As Object = ""

                Dim CT1 As New DataTable()

                Dim cmd2 As New SqlCommand("GetPvExecution")

                cmd2.Connection = Con

                cmd2.CommandType = CommandType.StoredProcedure

               (اسناد قيمة للبراميتر بواسطة قيمة من الكومبوبوكس) ' cmd2.Parameters.AddWithValue("@IdAff", ComboBox10.Text)

                Dim sda2 As New SqlDataAdapter(cmd2)

                sda2.Fill(CT1)

                Select Case ComboBox13.Text

                    Case "محضر تكليف بالوفاء"

                     rpt = New ReportIntroExecution

                                               rpt.Subreports(0).SetDataSource(CT1)

                    Case "محضر تبليغ تكليف بالوفاء"

                        rpt = New ReportIntroExecutionNotif

                    Case "محضر تبليغ سند تنفيذي"

                        rpt = New ReportIntroExecutionSaned1

                End Select

                rpt.Load()

                '***************************************************************************************

                If Ds1.Tables(0).Rows.Count <> 0 Then

                    CType(rpt.Section1.ReportObjects("Textinfobureau"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Ds1.Tables(0).Rows(0).Item(0).ToString

                    CType(rpt.Section1.ReportObjects("Textville"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Ds1.Tables(0).Rows(0).Item(1).ToString

                    CType(rpt.Section3.ReportObjects("Textville1"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Ds1.Tables(0).Rows(0).Item(1).ToString

                    CType(rpt.Section3.ReportObjects("Tex110"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Ds1.Tables(0).Rows(0).Item(2).ToString

                    CType(rpt.Section3.ReportObjects("Textadresse1"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Ds1.Tables(0).Rows(0).Item(2).ToString

                    CType(rpt.PageHeaderSection2.ReportObjects("Textmobile"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Ds1.Tables(0).Rows(0).Item(3).ToString

                    CType(rpt.Section3.ReportObjects("Textcode_postal1"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Ds1.Tables(0).Rows(0).Item(4).ToString

                    CType(rpt.DetailSection7.ReportObjects("Textinfobureau1"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Ds1.Tables(0).Rows(0).Item(0).ToString

                End If

                If CheckBox1.CheckState = CheckState.Checked Then

                    CType(rpt.Section3.ReportObjects("Text19"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = ""

                    CType(rpt.Section3.ReportObjects("Text8"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = ""

                Else

                    CType(rpt.Section3.ReportObjects("Text19"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = StringDate(ConvertDate)

                    CType(rpt.Section3.ReportObjects("Text8"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = MaskedTextBox7.Text

                End If

                CType(rpt.Section3.ReportObjects("Text16"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.ComboBox13.Text

                CType(rpt.Section3.ReportObjects("Text17"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.TextBox141.Text

                CType(rpt.Section3.ReportObjects("Text37"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.ComboBox12.Text

                CType(rpt.Section3.ReportObjects("Text34"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.TextBox64.Text

                CType(rpt.Section3.ReportObjects("Text32"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.TextBox61.Text

                CType(rpt.Section3.ReportObjects("Text18"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.TextBox142.Text

                CType(rpt.Section3.ReportObjects("Text13"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.TextBox144.Text

                CType(rpt.Section3.ReportObjects("Text14"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.TextBox145.Text

                CType(rpt.Section3.ReportObjects("Text21"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.TextBox146.Text

                CType(rpt.Section3.ReportObjects("Text11"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.TextBox143.Text

                CType(rpt.Section5.ReportObjects("Text22"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.ComboBox10.Text

                CType(rpt.Section5.ReportObjects("Text20"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Me.TextBox59.Text

                FrmPr.CrystalReportViewer1.ReportSource = rpt

                FrmPr.CrystalReportViewer1.ShowGroupTreeButton = False

                FrmPr.CrystalReportViewer1.RightToLeft = Windows.Forms.RightToLeft.Yes

                FrmPr.CrystalReportViewer1.Zoom(80%)

                FrmPr.CrystalReportViewer1.Refresh()

                FrmPr.CrystalReportViewer1.Show()

                FrmPr.ShowDialog()

                Con.Close()