تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] براميترز كريستال ريبورت
#1
السلام عليكم اخواني
كيف يمكنني التخلص من نافذة ادخال البراميترز في الكريستال ريبورت 
للعلم البراميتر يتم ادخالها برمجايا
المرفقات
كود :
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()


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى الكريستال ريبورت Lathe1 2 47 25-07-21, 07:23 PM
آخر رد: ابراهيم ايبو
  [سؤال] اضافة صوره من مجلد الى كرستال ريبورت alhoraibi800 3 262 02-07-21, 11:56 AM
آخر رد: Lathe1
  [سؤال] تمرير صوره من الفورم الى كرستال ريبورت alhoraibi800 1 165 30-06-21, 09:42 PM
آخر رد: ابراهيم ايبو
  احبتى اريد طريقه سهله لطباعه لوجو شركه الى جميع تقارير الكريستال ريبورت فى مشروع فيجو خالد كامل1 0 210 19-06-21, 08:11 AM
آخر رد: خالد كامل1
  كيفية وضع تقارير فرعية داخل التقرير الأساسي كريستال ريبورت saud4001 0 333 26-03-21, 07:31 AM
آخر رد: saud4001
  الفاست ريبورت محمد بن عطية 0 225 02-03-21, 11:24 AM
آخر رد: محمد بن عطية
  كيفية إضافة لوجو الي كريستال ريبورت Lathe1 2 428 02-03-21, 01:24 AM
آخر رد: Lathe1
  تثبيت حجم الورق في الكرستال ريبورت المتألق9 1 377 01-02-21, 06:28 AM
آخر رد: اسامه الهرماوي
  كيفية ترقيم تلقائي ريبورت لعمود واحد عمور2016 5 817 11-01-21, 11:07 AM
آخر رد: عمور2016
Exclamation [سؤال] مشكلة في تشغيل برنامجي عند العميل بسبب الكريستال ريبورت solyH 4 3,125 21-12-20, 04:06 PM
آخر رد: Lathe1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم