[tahaayyoub]

السلام عليكم اخواني
كيف يمكنني التخلص من نافذة ادخال البراميترز في الكريستال ريبورت 
للعلم البراميتر يتم ادخالها برمجايا
المرفقات

كود :

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()