تقييم الموضوع :
  • 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()


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question هل يمكن الحصول على نسخه برنامج كريستال ربيوت مع الكراك إن امكن ذلك ؟ Microformt 1 80 23-11-20, 08:09 PM
آخر رد: عبد العزيز البسكري
Smile [سؤال] الكريستال ريبورت loog 0 66 22-11-20, 12:09 AM
آخر رد: loog
  مشكلة فى كريستال ريبورت nabil.1710 2 201 07-11-20, 11:42 PM
آخر رد: nabil.1710
  تغيير نص التكست بوكس في كريستال ريبورت Mohammed Nafa 0 159 27-10-20, 08:56 PM
آخر رد: Mohammed Nafa
  طريقة تشغيل الكريستال ريبورت على جهاز العميل ! ZaerAllail 6 469 12-10-20, 04:02 AM
آخر رد: ZaerAllail
Exclamation [سؤال] مشكلة في تشغيل برنامجي عند العميل بسبب الكريستال ريبورت solyH 3 1,851 07-10-20, 05:53 AM
آخر رد: alipro
  [VB.NET] الكريستال ريبورت لاتظهر عندي في الفيجوال بيسك 2015 tarekalsuhairi 1 179 02-10-20, 04:02 PM
آخر رد: Rabeea Qbaha
  الكريستال ريبورت لا يعمل Emam emam 8 745 26-08-20, 06:20 PM
آخر رد: Emam emam
  ظهور رسالة خطا في الكريستال ريبورت عمور2016 6 566 25-08-20, 10:13 AM
آخر رد: عمور2016
  كيف أقوم بتصدير تقرير كريستال ريبورت الى PDF جيولوجي مبتدئ 3 425 24-08-20, 03:57 AM
آخر رد: عبد العزيز البسكري

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


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