تعديل على مثال لطباعة سجل محدد في الداتا غريدفيو

للرفع

للرفع

للرفع

مرفق  المثال باستخدام التقرير Reports&Report Viewer بدلا من كريستال ريبورت

cccc.rar

كل الشكر على التجاوب

لكن المثال فيه اكثر من خطأ

برجاء تعديل المثال وايضا حذف الكرستال ريبورت لانه غير موجود في جهازي

ما هى الاخطاء؟

مرفق صورة للاخطاء

المثال يعمل عندى استخدمت vs2012

على كل حال قم بتصميم ريبورت add new item>reporting> reports

قم باضافه datasource للريبورت  واضافه table وعمل mapping  للحقول المراد عرضها

ضع الاداة report viewer على الفورم لعرض التقرير واستخدم الكود التالى لتمرير البيانات للتقرير

  Dim r As New Form3
        r.ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
        r.ReportViewer1.LocalReport.DataSources.Clear()
        r.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("ds", ds.Tables("persons")))
        r.ReportViewer1.LocalReport.Refresh()
        r.ReportViewer1.RefreshReport()
        r.Show()

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

نفس الكود المستخدم

 Try
            Me.Cursor = Cursors.WaitCursor
            dt = New DataTable
            dt.TableName = "persons"
            dt.Columns.Clear()
            add2()
            Dim count As Integer = 0
            Dim dr As DataRow
            For i = 0 To DataGridView1.Rows.Count - 1
                If DataGridView1.Item(5, i).Value = True Then
                    dr = dt.Rows.Add
                    dr.Item("p_name") = DataGridView1.Item(0, i).Value.ToString
                    dr.Item("p_age") = DataGridView1.Item(1, i).Value.ToString
                    dr.Item("p_job") = DataGridView1.Item(2, i).Value.ToString
                    dr.Item("p_car") = DataGridView1.Item(3, i).Value.ToString
                    dr.Item("p_lang") = DataGridView1.Item(4, i).Value.ToString
                    count += 1
                End If
            Next
            If count = 0 Then
                MsgBox("لم تقم بإختيار أي عنصر للطباعة", MsgBoxStyle.Exclamation)
                Exit Sub
            End If
            Dim dss As New DataSet
            dss.Clear()
            dss.Tables.Add(dt)
            Dim r As New Form3

            r.ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
            r.ReportViewer1.LocalReport.DataSources.Clear()
            r.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("ds", dss.Tables("persons")))
            r.ReportViewer1.LocalReport.Refresh()
            r.ReportViewer1.RefreshReport()
            r.Show()
            removecheck()
            r.Show()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Me.Cursor = Cursors.Default
        End Try

تقوم بتمرير مصدر البيانات للتقرير كما فى كريستال ريبرورت

ظهرت لي رسالة خطأ

انت تنشئ كائن من FORM2 بداخل الكلاس FORM2 ولهذا ترى StackOverflow حيث لن تتوقف عمليه الانشائ للكائن

الكو السابق لابد ان يكون فى Form1

وماذا اكتب في الفورم 2

Form2  يحوى اللاداه report viewer  ولا يوجد به كود

التقرير يظهر فارغا

ما هو الكود المستخدم....

تاكد من تمرير نفس الاسم عند انشاء مصدر بيانات للموجود فى التقرير

  r.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("ds", dss.Tables("persons")))

ReportDataSource("ds", dss.Tables("persons

لاحظ الاسم باللون الاحمر لابد ان يكون مطابق لمصدر البيانات فى التقرير

فشلت كل المحاولات ولم اصل الى نتيجة

للرفع

للرفع

/index.php/topic/284378-%D8%A7%D9%84%D8%AA%D9%82%D8%A7%D8%B1%D9%8A%D8%B1-microsoft-report/

السلام عليكم 

اخي الكريم الامر بسيط جدا بالنسبة للطباعة ... 

اغلب المشاكل التي تواجهك في الطباعة تكون في الأمر select 

= ("SELECT * FROM phonee WHERE ID LIKE " & T1.Text.Trim & "")

هذا الامر لطباعة سجل محدد

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

= "SELECT * FROM phonee order by id"

نرجوا ان تعم الفائدة