+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : طباعة لابيل وداتا حرد معا CrystalReport1 (/showthread.php?tid=9818)
طباعة لابيل وداتا حرد معا CrystalReport1 - yousef - 28-07-13
اريد تغير عنوان الصفحة عند الطباعة
حيث ان الايبل يحمل عنوان الصفحة (يتغير حسب اسم العميل)
و ان الصفحة تطبع الداتا جريد (تحتوي على بيانات عميل معين)و الايبل هو ام العميل
المشكلة ليست في طباعة الداتا جرد بل باللابل
قمت بطرح الموضوع للمرة الثانية وذلك لاضافة مرفق(اعتذر)
كود :
Public Class Form1
Public dt As DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dt = New DataTable
dt.TableName = "grid"
dt.Columns.Clear()
add()
Dim count As Integer = 0
Dim dr As DataRow
Dim i As Integer
MsgBox(Me.Table1DataGridView.Rows.Count, MsgBoxStyle.Exclamation, "")
For i = 0 To Me.Table1DataGridView.Rows.Count - 2
dr = dt.Rows.Add
dr.Item("num") = Me.Table1DataGridView.Item(0, i).Value.ToString
dr.Item("name") = Me.Table1DataGridView.Item(1, i).Value.ToString
dr.Item("phone") = Me.Table1DataGridView.Item(2, i).Value.ToString
dr.Item("area") = Me.Table1DataGridView.Item(3, i).Value.ToString
dr.Item("note") = Me.Table1DataGridView.Item(4, i).Value.ToString
Next i
Form2.print(dt)
Form2.Show()
End Sub
Sub add()
Dim num As DataColumn = New DataColumn("num")
num.DataType = System.Type.GetType("System.String")
dt.Columns.Add(num)
Dim name As DataColumn = New DataColumn("name")
name.DataType = System.Type.GetType("System.String")
dt.Columns.Add(name)
Dim phone As DataColumn = New DataColumn("phone")
phone.DataType = System.Type.GetType("System.String")
dt.Columns.Add(phone)
Dim area As DataColumn = New DataColumn("area")
area.DataType = System.Type.GetType("System.String")
dt.Columns.Add(area)
Dim note As DataColumn = New DataColumn("note")
note.DataType = System.Type.GetType("System.String")
dt.Columns.Add(note)
End Sub
End Classجزاكم الله خير
طباعة لابيل وداتا حرد معا CrystalReport1 - yousef - 28-07-13
ببببببببببب
طباعة لابيل وداتا حرد معا CrystalReport1 - yousef - 28-07-13
جربت هذا الكود لكنه لم يغير
كود :
Dim txt1 As TextObject
txt1 = Me.CrystalReport11.ReportDefinition.ReportObjects("Text1")
txt1.Text = Form1.Label1.Textطباعة لابيل وداتا حرد معا CrystalReport1 - @@أبورائد@@ - 28-07-13
السلام عليكم ورحمة الله وبركاته
أنشء معامل Parameter وسمه مثلا p1 ثم ضعه في المكان المناسب على التقرير Report1
لاحظ الترتيب فهو مهم:
1: تعريف r
2: الربط بالبيانات myDataSet
3: تعيين قيمه للمعامل p1
4: وأخيراً عرضه في مستعرض التقارير CrystalReportViewer1
PHP كود :
Dim r As New Report1
r.SetDataSource(myDataSet)
r.SetParameterValue("p1", "اسم العميل")
CrystalReportViewer1.ReportSource = r
السلام عليكم ورحمة الله وبركاته
طباعة لابيل وداتا حرد معا CrystalReport1 - yousef - 28-07-13
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته
أنشء معامل Parameter وسمه مثلا p1 ثم ضعه في المكان المناسب على التقرير Report1
لاحظ الترتيب فهو مهم:
1: تعريف r
2: الربط بالبيانات myDataSet
3: تعيين قيمه للمعامل p1
4: وأخيراً عرضه في مستعرض التقارير CrystalReportViewer1
PHP كود :
Dim r As New Report1
r.SetDataSource(myDataSet)
r.SetParameterValue("p1", "اسم العميل")
CrystalReportViewer1.ReportSource = r
السلام عليكم ورحمة الله وبركاته
ممكن توضيح اكثر
PHP كود :
Public Function print(ByVal dt As DataTable)
Dim e1 As New CrystalReport1
e1.SetDataSource(dt)
CrystalReportViewer1.ReportSource = e1
Me.CrystalReportViewer1.RefreshReport()
Return Nothing
End Function
لقد شارفت على الانتهاء من البرنامج ولن يتبقي سوى التقارير
ارجوا منك التعديل على الملف المرفق
اخي الكريم اشكرك على الرد
واسئلة الله في هذا الشهر المبارك ان يغفر لك ويدخلك الجنة
طباعة لابيل وداتا حرد معا CrystalReport1 - yousef - 28-07-13
مشكور اخي الكريم لقد اعطيتني طرف الخيط
إقتباس : Public Function print(ByVal dt As DataTable)
Dim e1 As New CrystalReport1
Dim txt1 As TextObject
e1.SetDataSource(dt)
txt1 = e1.ReportDefinition.ReportObjects("text1")
txt1.Text = Form1.Label1.Text
CrystalReportViewer1.ReportSource = e1
Me.CrystalReportViewer1.RefreshReport()
Return Nothing
End Function
اللهم إنا نسألك زيادة في الدين
وبركة في العمر
وصحة في الجسد
وسعة في الرزق
وتوبة قبل الموت
وشهادة عند الموت
ومغفرة بعد الموت
وعفوا عند الحساب
وأمانا من العذاب
ونصيبا من الجنة
وارزقنا النظر إلى وجهك الكريم
طباعة لابيل وداتا حرد معا CrystalReport1 - yousef - 28-07-13
مشكور اخي الكريم لقد اعطيتني طرف الخيط
إقتباس : Public Function print(ByVal dt As DataTable)
Dim e1 As New CrystalReport1
Dim txt1 As TextObject
e1.SetDataSource(dt)
txt1 = e1.ReportDefinition.ReportObjects("text1")
txt1.Text = Form1.Label1.Text
CrystalReportViewer1.ReportSource = e1
Me.CrystalReportViewer1.RefreshReport()
Return Nothing
End Function
اللهم إنا نسألك زيادة في الدين
وبركة في العمر
وصحة في الجسد
وسعة في الرزق
وتوبة قبل الموت
وشهادة عند الموت
ومغفرة بعد الموت
وعفوا عند الحساب
وأمانا من العذاب
ونصيبا من الجنة
وارزقنا النظر إلى وجهك الكريم
طباعة لابيل وداتا حرد معا CrystalReport1 - @@أبورائد@@ - 28-07-13
السلام عليكم ورحمة الله وبركاته
بناء على ما ذكرت يصبح كالتالي
أنشء معامل Parameter وسمه مثلا p1 ثم ضعه في المكان المناسب على التقرير CrystalReport1
PHP كود :
Public Sub print(ByVal dt As DataTable)
Dim e1 As New CrystalReport1
e1.SetDataSource(dt)
e1.SetParameterValue("p1", "اسم العميل")
CrystalReportViewer1.ReportSource = e1
End Sub
السلام عليكم ورحمة الله وبركاته
طباعة لابيل وداتا حرد معا CrystalReport1 - atefkhalf2004 - 29-07-13
كيف نمرر الفيمة الموجودة في الليبل الي المعامل p1 بدلا من كلمة "اسم الغميل"
e1.SetParameterValue("P1", Form1.Label1.Text)
كتبتها هكذا اظهر عند التنفبذ مطلوب ادخال قيمة واطهر اسم المعامل كيف اتغلب علي ذلك
رغم تمرير الفيمة بالكود السابق