[adel27]

السلام عليكم رحمة الله وبركاته 
عندي تقرير قدرت أطبع الكل فيه 
محتاج أستخدم نفس التقرير بشرط تنظيفه أولاً ومن ثم طباعة عن طريق رقم الموظف 
ياليت تساعدوني في تكويده 
تكست بكس يدخل رقم الموظف ويضغط طباعه يطبع في التقرير

[ممدوح]

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

وضح أخي الكريم، ماذا تقصد بتنظيفه وتكويده ؟

وما نوع التقرير،

ولو ترفق مشروع صغير يكون أفضل، مع الشرح الإضافي طبعاً.

[adel27]

(09-11-16, 11:38 PM)ممدوح كتب : وعليكم السلام رحمة الله وبركاته

وضح أخي الكريم، ماذا تقصد بتنظيفه وتكويده ؟

وما نوع التقرير،

ولو ترفق مشروع صغير يكون أفضل، مع الشرح الإضافي طبعاً.

الفكره أني أستخدم كرستال ريبورت ولكن ماعندي إلا فورم واحد لطباعه بحيث أني لما أطبع الكل وأنتهي وبعدها أرجع أطبع قيمه واحده فقط يطبع لي الكل لأنه ما مسح القديم من التقرير هاذي من جربت أنا 

تفضل هذا المشـورع شاكر ومقدر لك يا غالي

[ممدوح]

مشروعك ليس فيه أكواد طباعة من أساسه ليتم التعديل عليه

وقاعدة البيانات معمولة على إصدار أحدث من الموجود عندي

[adel27]

أنا رسمت لك الفكره 
والأصدار على سكيول سيرفر 2008
الفكره ياصاحبي بسيطه جداً 
أستخدمت كرستال ريبورت 
عندي فورم 1 لأظهار التقارير 
طباعة الكل اللي بالجدول الحمد لله  أمرها يسير وسهل 
عندي تكست بكس + زر طباعه 
يدخل في التكست بكس رقم الموظف
هنا يتم تهئية التقرير بحيث أذا كان فيه بيانات قديمه يشيلها 
ويظغط على زر طباعه يظهر في التقرير الموظف المدخل رقمه + بيانات اللي في نفس الجدول فقط 
فقط 
أعذرني يا أستاذ ممدوح أنا على بالي تبي الفكره فقط

---

أنا رسمت لك الفكره 
والأصدار على سكيول سيرفر 2008
الفكره ياصاحبي بسيطه جداً 
أستخدمت كرستال ريبورت 
عندي فورم 1 لأظهار التقارير 
طباعة الكل اللي بالجدول الحمد لله  أمرها يسير وسهل 
عندي تكست بكس + زر طباعه 
يدخل في التكست بكس رقم الموظف
هنا يتم تهئية التقرير بحيث أذا كان فيه بيانات قديمه يشيلها 
ويظغط على زر طباعه يظهر في التقرير الموظف المدخل رقمه + بيانات اللي في نفس الجدول فقط 
فقط 
أعذرني يا أستاذ ممدوح أنا على بالي تبي الفكره فقط

[ممدوح]

عموما يجب ان تقوم بالاستعلام وتملئ جدول تقوم بربط التقرير بالجدول مثل التالي

كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim daa As New SqlDataAdapter("SELECT * FROM [Table1] WHERE [ID]=@id", cnn)
    daa.SelectCommand.Parameters.AddWithValue("@id", 2)

    Dim tbl As New DataTable
    daa.Fill(tbl)

    Dim rpt As New CrystalReport1
    rpt.SetDataSource(tbl)
    Me.CrystalReportViewer1.ReportSource = rpt

End Sub

[adel27]

يعطيك العافيه سيتم التجربه أن شاء الله ألف شكر

[IBRA939]

مشكور ماقصرت