08-11-20, 10:08 PM
السلام عليكم اخواني
كيف يمكنني التخلص من نافذة ادخال البراميترز في الكريستال ريبورت
للعلم البراميتر يتم ادخالها برمجايا
المرفقات
كيف يمكنني التخلص من نافذة ادخال البراميترز في الكريستال ريبورت
للعلم البراميتر يتم ادخالها برمجايا
المرفقات
كود :
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()