كود :

Rpt.Parameters("Parameter1").Value = Textbox1.text

(19-12-19, 11:26 PM)عبد العزيز البسكري كتب :

السّلام عليكم و رحمة الله و بركاته

إخواني الأفاضل

كيف يمكن إضافة قيمة التاكست بكس إلى صفحة الإكسترا ريبورت أثناء الطباعة

قمت بتطبيق كل ما جاء بالشروحات و مع ذلك لم أتوصّل إلى المطلوب

قمت بإضافة بارامتر بالمسمى Parameter1

أنا كتبت مثلما هو موضّح بالصورة بالخانة Value عبارة

عبد العزيز البسكري .. و هي التي تظهر بطريقة عادية بصفحة الطباعة

لكن عندما أحذف هذه العبارة من الخانة Value و تركها فارغة تماما لتمرير قيمة التاكست بكس بدلاً عنها بهذا الكود ..

كود :

Rpt.Parameters("Parameter1").Value = Textbox1.text

أجد أنّ البارامتر فارغة تماما و لا يتم تمرير ما هو موجود بالتاكست بكس

نوّروني الله يرضى عليكم ليوم الدين

بارك الله فيكم مقدّمًا

(20-12-19, 01:28 AM)عبد العزيز البسكري كتب :

السّلام عليكم و رحمة الله و بركاته

بارك الله فيك و جزاك خير الجزاء أخي الكريم Smalw على المساعدة .. زادها الله بموازين حسناتك و رزقك من حيث تحتسب و أطال بعمرك و بعمر من تحب بمحبة الله و مرضاته إن شاء الله .. 

جربت أخي الغالي بهذا الكود و الذي من غير سطر البارامتر يشتغل بطريقة جد عادية .. 

مع إضافة سطر البارامتر و عند الضغط مباشرة على زر أمر الطباعة .. لا  يظهر التقرير إطلاقَا .. و تظهر هذه النافذة ..

لو قمت بحذف هذا السطر من كود الطباعة ..

كود :

AzizReport.Parameters("Parameter1").Value = TextBox1.Text

يشتغل التقرير بصورة جد عادية

هذا كود الطباعة المستعمل :

كود :

   Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click

       Try

           Dim Adp As New SqlDataAdapter("SELECT [TBL_ITEMS].[ITEMS_Code], [TBL_ITEMS].[ITEMS_Name], [TBL_ITEMS].[ITEMS_Qualite], [TBL_ITEMS].[ITEMS_Category],[TBL_ITEMS].[ITEMS_Date_Expire],[TBL_ITEMS].[ITEMS_Stock]  From [TBL_ITEMS]", Conne_2019)

           Dim Ds As New DataSet
           Dim Xrpt As New XtraReport1
           Adp.Fill(Ds)
           Dim Dt = Ds.Tables(0)

           If Dt.Rows.Count = 0 Then
               MsgBox("لم يتم العثور على بيانات لعرضها في التّقرير", MsgBoxStyle.Critical, "تنبيه")
               Exit Sub
           End If

           Xrpt.DataSource = Dt
           Xrpt.DataAdapter = Adp
           Xrpt.DataMember = "TBL_ITEMS"

           Xrpt.Parameters("Parameter1").Value = TextBox1.Text

           Dim Tool_Report As ReportPrintTool = New ReportPrintTool(Xrpt)
           Xrpt.CreateDocument()

           Dim Frm As New FrmReportPrinting
           Frm.DocumentViewer1.DocumentSource = Xrpt
           Frm.ShowDialog()

       Catch ex As Exception
           MsgBox("خطأ غير متوقّع في جلب البيانات")
       End Try

   End Sub

تحياتي واحتراماتي