+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : ربط لابيل مع الكريستال ريبورت (/showthread.php?tid=4854)
ربط لابيل مع الكريستال ريبورت - yousef - 02-10-12
اريد تغير عنوان الصفحة عند الطباعة
حيث ان الايبل يحمل عنوان الصفحة (يتغير حسب اسم العميل)
و ان الصفحة تطبع الداتا جريد (تحتوي على بيانات عميل معين)و الايبل هو ام العميل
جزاكم الله خير:confused:
ربط لابيل مع الكريستال ريبورت - hsab - 02-10-12
جرب عدل فى هذا الكود
[HTML] Try
Dim rep As New rep_name()
DataSet1.Clear()
Dim zx As New OleDbDataAdapter("select * from tabl_name where customer_name='" & Trim(textbox1.Text) & "'", conn
zx.Fill(DataSet1, "table_name")
If DataSet1.Tables(0).Rows.Count <> 0 Then
rep.Database.Tables(0).SetDataSource(DataSet1)
frm_repview.cry1.ReportSource = rep
rep.SetParameterValue(0, trim(TextBox1.Text))
))
frm_repview.cry1.Refresh()
frm_repview.Show()
Else[HTML] Try
Dim rep As New rep_name()
DataSet1.Clear()
Dim zx As New OleDbDataAdapter("select * from tabl_name where customer_name='" & Trim(textbox1.Text) & "'", conn
zx.Fill(DataSet1, "table_name")
If DataSet1.Tables(0).Rows.Count <> 0 Then
rep.Database.Tables(0).SetDataSource(DataSet1)
frm_repview.cry1.ReportSource = rep
rep.SetParameterValue(0, trim(TextBox1.Text))
))
frm_repview.cry1.Refresh()
frm_repview.Show()
MsgBox("No records available to show")
End If
Catch ex As Exception
End Try[/HTML]
ربط لابيل مع الكريستال ريبورت - yousef - 02-10-12
اخي الكريم
السورس للكرستال ريبورت =تابل الداتا جريد
فكيف رح يوخد :
frm_repview.cry1.ReportSource = rep
ممكن توضيح اكثر
مشكور على االرد