منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طباعة لابيل وداتا حرد معا CrystalReport1

اريد تغير عنوان الصفحة عند الطباعة
حيث ان الايبل يحمل عنوان الصفحة (يتغير حسب اسم العميل)
و ان الصفحة تطبع الداتا جريد (تحتوي على بيانات عميل معين)و الايبل هو ام العميل
المشكلة ليست في طباعة الداتا جرد بل باللابل
قمت بطرح الموضوع للمرة الثانية وذلك لاضافة مرفق(اعتذر)

كود :

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

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

ببببببببببب

جربت هذا الكود لكنه لم يغير

كود :

Dim txt1 As TextObject

        txt1 = Me.CrystalReport11.ReportDefinition.ReportObjects("Text1")

        txt1.Text = Form1.Label1.Text

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

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

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

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته

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

الreportsource يحمل بيانات الداتا جرد؟؟؟؟
لقد شارفت على الانتهاء من البرنامج ولن يتبقي سوى التقارير
ارجوا منك التعديل على الملف المرفق
اخي الكريم اشكرك على الرد
واسئلة الله في هذا الشهر المبارك ان يغفر لك ويدخلك الجنة

مشكور اخي الكريم لقد اعطيتني طرف الخيط

إقتباس : 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

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

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

وصحة في الجسد

وسعة في الرزق

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

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

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

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

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

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

وارزقنا النظر إلى وجهك الكريم

مشكور اخي الكريم لقد اعطيتني طرف الخيط

إقتباس : 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

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

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

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

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

كيف نمرر الفيمة الموجودة في الليبل الي المعامل p1 بدلا من كلمة "اسم الغميل"
e1.SetParameterValue("P1", Form1.Label1.Text)

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

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

yousef

yousef

yousef

@@أبورائد@@

yousef

yousef

yousef

@@أبورائد@@

atefkhalf2004