• 0
التميمي فهد

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

سؤال

السلام عليكم

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

Print DataGridview_2.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

19 إجابة على هذا السؤال .

  • 0

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

cccc.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

تم تعديل بواسطه التميمي2007
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

المثال يعمل عندى استخدمت 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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

تم تعديل بواسطه SOLO.NET
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم 

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

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

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

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

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

= "SELECT * FROM phonee order by id"

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .