كيفية ربط Crystal report ب Data grid view

استخدم هذا الكود:

Dim MyDataSet As New DataSet1

Dim MyDataTable As DataTable

Dim MyDataRow As DataRow

Dim i As Int16 = 0

Do While i < DataGridView1.Rows.Count

MyDataTable = MyDataSet.Tables("DataTable1")

MyDataRow = MyDataTable.NewRow

MyDataRow(0) = DataGridView1.Rows(i).Cells(0).Value.ToString

MyDataRow(1) = DataGridView1.Rows(i).Cells(1).Value.ToString

MyDataRow(2) = DataGridView1.Rows(i).Cells(2).Value.ToString

MyDataRow(3) = DataGridView1.Rows(i).Cells(3).Value.ToString

MyDataRow(4) = DataGridView1.Rows(i).Cells(4).Value.ToString

MyDataTable.Rows.Add(MyDataRow)

i += 1

Loop

Dim Form1 As New FrmViewer

Dim cr1 As New MyCrystalReport()

cr1.Database.Tables(0).SetDataSource(MyDataSet)

Form1.CrystalReportViewer1.ReportSource = cr1

Form1.Show()

صديقي العزيز لا تعلم كم تعبت في البحث عن هذه المعلومه الرائعه ولك جزيل الشكر لكن هناك مشكله في Dim MyDataRow As DataRow لا اعلم ما هي ارجو المساعده في توضيحا اذا سمحت بذلك ووفقك الله وجزاك خير الجزاء

Alaa Assadi كتب:

صديقي العزيز لا تعلم كم تعبت في البحث عن هذه المعلومه الرائعه ولك جزيل الشكر لكن هناك مشكله في Dim MyDataRow As DataRow لا اعلم ما هي ارجو المساعده في توضيحا اذا سمحت بذلك ووفقك الله وجزاك خير الجزاء

أرجو المساعدة

الكود بيقف عند

MyDataRow = MyDataTable.NewRow

جرب NEW

MyDataRow =NEW MyDataTable.NewRow

KARIMSOFT كتب:

جرب NEW

MyDataRow =NEW MyDataTable.NewRow

لم تفلح أخى الكريم بإضافة

MyDataRow =NEW MyDataTable.NewRow

اعطي خط احمر تحت كلمة newrow

أرجو المساعدة

السلام عليكم اخي

اضف اولا الاعمده الموجوده في التقرير الي الداتا تيبل هكذا

   MyDataTable.Columns.Add("st_Id", Type.GetType("System.Double"))

مع تغيير اسم الحقل "st_Id" ونوع البيانات "System.Double " بما هو موجود عندك

ثانيا عرف DataRow في نفس سطر اضافه سجل هكذا

 Dim MyDataRow As DataRow = MyDataTable.NewRow

وبعد ذلك يمكنك ربط التقرير كما اوضح لك الاخ معاني

للمزيد اطلع علي هذا الرابط Adding Columns to a Table

http://msdn.microsoft.com/en-us/library/hfx3s9wd%28v=vs.71%29.aspx

بالتوفيق

mr_mgm كتب:

السلام عليكم اخي

اضف اولا الاعمده الموجوده في التقرير الي الداتا تيبل هكذا

   MyDataTable.Columns.Add("st_Id", Type.GetType("System.Double"))

مع تغيير اسم الحقل "st_Id" ونوع البيانات "System.Double " بما هو موجود عندك

ثانيا عرف DataRow في نفس سطر اضافه سجل هكذا

 Dim MyDataRow As DataRow = MyDataTable.NewRow

وبعد ذلك يمكنك ربط التقرير كما اوضح لك الاخ معاني

للمزيد اطلع علي هذا الرابط Adding Columns to a Table

http://msdn.microsoft.com/en-us/library/hfx3s9wd%28v=vs.71%29.aspx

بالتوفيق

طب ممكن مع الشرح أخي الكريم

تقول الكود مع الشرح

السيد الفاضل صاحب الموضوع

ممكن وضع المثال بالكامل بعد ايضاحات السادة الزملاء

شكرا

atefkhalf2008 كتب:

السيد الفاضل صاحب الموضوع

ممكن وضع المثال بالكامل بعد ايضاحات السادة الزملاء

شكرا

اخي الفاضل

تحياتي

بعمل بحث عن شئ معين طلع نتيجة البحث فى داتا جريد

الموضوع عاوز اطلع نتيجة الداتا جريد فيو اصدرها إلى تقرير Report Viewer

بس

وجزاكم الله خيرا

ما زلت انا والزملاء ننتظر المثال منك او احد الزملاء

شكرا

atefkhalf2004 كتب:

ما زلت انا والزملاء ننتظر المثال منك او احد الزملاء

شكرا

اتقصد ادراج المثال ال1ي اعمل عليه

ارفع البرنامج يعني

جزاك الله خيرا