منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مبقليش كتير شغال على ReportViewer وفى مشكله ان كل الفواتير بتظهر تحت بعض اتحلت بقت كل فاتوره بتظهر فى ورقه لوحدها بس المشكله انى عايز فاتوره واحده تظهر اما الى رقمها فى التكست بوكس او اخر فاتوره اتحفظت وحاولت انى اكتب اسم الشركه فى الفاتوره كجدول لوحده مفيش حاجه بتظهر كل الجداول الى فى العلاقه بس الى بيظهر وده كود اللود الخاص بفورم التقرير

كود :

  'Dim dt As New DataTable

        'Dim da As New OleDbDataAdapter

        'da = New OleDbDataAdapter("select * from DataTable1 where id=" & folder.txtnamper.Text & "", con)

        'da.Fill(dt)

        'TODO: This line of code loads data into the 'dbvDataSet.DataTable1' table. You can move, or remove it, as needed.

        Me.DataTable1TableAdapter.Fill(Me.dbvDataSet.DataTable1)

        Me.Width = ReportViewer1.Width

        Me.ReportViewer1.RefreshReport()

        Me.ReportViewer1.RefreshReport()

أنت بعد التعبئة ما ربطت النتيجة بالتقرير

هذا تعديل

كود :

      'Dim dt As New DataTable

       'Dim da As New OleDbDataAdapter("select * from DataTable1 where id=" & folder.txtnamper.Text & "", con)

       'da.Fill(dt)

       'TODO: This line of code loads data into the 'dbvDataSet.DataTable1' table. You can move, or remove it, as needed.

       Me.DataTable1TableAdapter.Fill(Me.dbvDataSet.DataTable1)

       Me.ReportViewer1.LocalReport.DataSources(0).Value = Me.dbvDataSet.DataTable1

       Me.Width = ReportViewer1.Width

       Me.ReportViewer1.RefreshReport()

(23-10-17, 04:35 PM)Amir_alzubidy كتب : [ -> ]السلام عليكم و رحمة الله
هذا مثال لكيفية طباعة رقم الفاتورة المطلوب
اتمنى الاستفادة منه

عدلت على الكود بحيث بعد الحفظ ممكن يطبع الفاتوره ال قبلها وبتطبع بالفعل شاكر جداا يا بشمهندس
بس فى خطا بيظهر اول مبطبع الفاتوره من مكان تانى فى الكود ممكن تعدلهولى لو سمحت

كود :

 Me.DataTable1TableAdapter.Fill(Me.dbvDataSet.DataTable1)

            Me.ReportViewer1.RefreshReport()

            Dim Text_String As Integer = (folder.txtnamper.Text - 1)

            Me.DataTable1BindingSource.Filter = "(ID=" & Text_String & ")"

            Me.Width = ReportViewer1.Width

            Me.ReportViewer1.RefreshReport()

(23-10-17, 06:30 PM)نبيل فتحى كتب : [ -> ]
(23-10-17, 04:35 PM)Amir_alzubidy كتب : [ -> ]السلام عليكم و رحمة الله
هذا مثال لكيفية طباعة رقم الفاتورة المطلوب
اتمنى الاستفادة منه

عدلت على الكود بحيث بعد الحفظ ممكن يطبع الفاتوره ال قبلها وبتطبع بالفعل شاكر جداا يا بشمهندس
بس فى خطا بيظهر اول مبطبع الفاتوره من مكان تانى فى الكود ممكن تعدلهولى لو سمحت

كود :

Me.DataTable1TableAdapter.Fill(Me.dbvDataSet.DataTable1) Me.ReportViewer1.RefreshReport() Dim Text_String As Integer = (folder.txtnamper.Text - 1) Me.DataTable1BindingSource.Filter = "(ID=" & Text_String & ")" Me.Width = ReportViewer1.Width Me.ReportViewer1.RefreshReport()

رسالة الخطا فى الصوره

(23-10-17, 08:34 PM)Amir_alzubidy كتب : [ -> ]السلام عليكم ورحمة الله
تعديل المرفق

بشكر حضرتك يا بشمهندس امير بس برده المشكله فى الكود الى كتبته فوق و فى مشكله انى مش عارف اصلا ادمج الريبورت التانى فى الريبورت الاول اصلا علشان لسه خبرتى ضعيفه فى التقارير بقرر شكرى لحضرتك ولو تبسط الموضوع اكتر بتعديل الكود وتوضيح بسيط اذاى ادمج التقرارير وشكرايا بشمهندس امير بجد لمجهودك

(23-10-17, 04:35 PM)Amir_alzubidy كتب : [ -> ]السلام عليكم و رحمة الله
هذا مثال لكيفية طباعة رقم الفاتورة المطلوب
اتمنى الاستفادة منه

اتغلبت الحمد الله على المشكله بفضل الله ثم حضرتك بس دمج التقريرين مش عارف ادمجهم على الرغم من انى بعمل كل حاجه ودورت فى كل مكان بتطلع رسالة
"data retrieval failed for the subreport"

(24-10-17, 10:25 PM)Amir_alzubidy كتب : [ -> ]Created By : C

بحاول اجرب فى كل حاجه التقرير برده مبيظهرش
ذى فى الصوره كده

(25-10-17, 01:57 AM)Amir_alzubidy كتب : [ -> ]اهلا بك اخي فتحي
لا بأس
ارجو منك ان ترفق المشروع
على الرحب و السعة

علشان المشروع كبير ده مشروع حضرتك كنت رفعه وموضح فيه المشكله حضرتك حلتها بس بكود c# او +
ولو توضيح بسيط عن المشكله ان تكرمت يا بشمهندس امير