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

نسخة كاملة : ربط لابيل مع الكريستال ريبورت
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد تغير عنوان الصفحة عند الطباعة
حيث ان الايبل يحمل عنوان الصفحة (يتغير حسب اسم العميل)
و ان الصفحة تطبع الداتا جريد (تحتوي على بيانات عميل معين)و الايبل هو ام العميل
جزاكم الله خير:confused:
جرب عدل فى هذا الكود

[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
MsgBox("No records available to show")
End If
Catch ex As Exception

End Try[/HTML]
اخي الكريم
السورس للكرستال ريبورت =تابل الداتا جريد
فكيف رح يوخد :
frm_repview.cry1.ReportSource = rep
ممكن توضيح اكثر
مشكور على االرد