تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طباعة لابيل وداتا حرد معا CrystalReport1
#1
اريد تغير عنوان الصفحة عند الطباعة
حيث ان الايبل يحمل عنوان الصفحة (يتغير حسب اسم العميل)
و ان الصفحة تطبع الداتا جريد (تحتوي على بيانات عميل معين)و الايبل هو ام العميل
المشكلة ليست في طباعة الداتا جرد بل باللابل
قمت بطرح الموضوع للمرة الثانية وذلك لاضافة مرفق(اعتذر)
كود :
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

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


الملفات المرفقة
.rar   test.rar (الحجم : 190.29 ك ب / التحميلات : 71)
الرد }}}
تم الشكر بواسطة:
#2
ببببببببببب
الرد }}}
تم الشكر بواسطة:
#3
جربت هذا الكود لكنه لم يغير
كود :
Dim txt1 As TextObject
        txt1 = Me.CrystalReport11.ReportDefinition.ReportObjects("Text1")
        txt1.Text = Form1.Label1.Text
الرد }}}
تم الشكر بواسطة:
#4

السلام عليكم ورحمة الله وبركاته





أنشء معامل
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 





السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#5
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته





أنشء معامل
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 





السلام عليكم ورحمة الله وبركاته

ممكن توضيح اكثر
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 
الreportsource يحمل بيانات الداتا جرد؟؟؟؟
لقد شارفت على الانتهاء من البرنامج ولن يتبقي سوى التقارير
ارجوا منك التعديل على الملف المرفق
اخي الكريم اشكرك على الرد
واسئلة الله في هذا الشهر المبارك ان يغفر لك ويدخلك الجنة
الرد }}}
تم الشكر بواسطة:
#6
مشكور اخي الكريم لقد اعطيتني طرف الخيط
إقتباس : 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

اللهم إنا نسألك زيادة في الدين

وبركة في العمر

وصحة في الجسد

وسعة في الرزق

وتوبة قبل الموت

وشهادة عند الموت

ومغفرة بعد الموت

وعفوا عند الحساب

وأمانا من العذاب

ونصيبا من الجنة

وارزقنا النظر إلى وجهك الكريم
الرد }}}
تم الشكر بواسطة:
#7
مشكور اخي الكريم لقد اعطيتني طرف الخيط
إقتباس : 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

اللهم إنا نسألك زيادة في الدين

وبركة في العمر

وصحة في الجسد

وسعة في الرزق

وتوبة قبل الموت

وشهادة عند الموت

ومغفرة بعد الموت

وعفوا عند الحساب

وأمانا من العذاب

ونصيبا من الجنة

وارزقنا النظر إلى وجهك الكريم
الرد }}}
تم الشكر بواسطة:
#8

السلام عليكم ورحمة الله وبركاته




بناء على ما ذكرت يصبح كالتالي

أنشء معامل 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 





السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#9
كيف نمرر الفيمة الموجودة في الليبل الي المعامل p1 بدلا من كلمة "اسم الغميل"
e1.SetParameterValue("P1", Form1.Label1.Text)

كتبتها هكذا اظهر عند التنفبذ مطلوب ادخال قيمة واطهر اسم المعامل كيف اتغلب علي ذلك
رغم تمرير الفيمة بالكود السابق
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف من الممكن طباعة كل سجل في صفحة مستقلة ( Report Viewer ) abomo3ath 2 812 24-09-23, 09:31 AM
آخر رد: abomo3ath
  طباعة داتا جريد في جدولين على الريبورت ahmed_elwerfalli 1 516 21-08-23, 05:53 PM
آخر رد: Taha Okla
  [سؤال] مشكلة في طباعة footer تقرير كريستال ريبورت i1982 5 1,124 29-03-23, 11:30 PM
آخر رد: sanyor77
  طباعة بيانات من عدّة جداول عبد العزيز البسكري 2 2,397 19-07-21, 12:37 AM
آخر رد: Lathe1
  طباعة سجلات متعددة فى تقارير متعددة mr_hso 0 1,583 14-09-20, 06:09 PM
آخر رد: mr_hso
  لا استطيع طباعة التقرير bassant 6 2,566 09-06-20, 10:43 AM
آخر رد: bassant
  [VB.NET] طباعة كريستال ريبورت tahaayyoub 0 1,696 29-04-20, 04:11 AM
آخر رد: tahaayyoub
  [VB.NET] معالجة مشكل طباعة الفاتورة دون حفضها sniperjawadino 5 2,494 07-10-19, 12:39 PM
آخر رد: sniperjawadino
  [سؤال] ظهور خطأ no such interface عند طباعة صفحة word ويندوز windows 10 عبد الله 2 2,146 01-10-19, 03:41 AM
آخر رد: عبد الله
  [سؤال] طباعة كل سجل في الجدول بصفحة محاسب يوسف 13 6,934 04-09-19, 01:50 PM
آخر رد: Hassan.syria

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم