الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكن طباعة مجتويات Textbox + DataGridView بواسطة كريستال ريبورت

بدأه Bavarian85 في 1 يوليو 2012 · 6 رد · 3,796 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أخوتي الكرام ...

تحية طيبة لكم جميعاً ..

أرجو منكم مساعدتي في إيجاد كود طباعة مناسب لهذا البرنامج مع العلم انني حاولت باستخدم الكريستال ريبورت باستخدام Dataset & DataTable ولكن فقط يطبع محتويات الـ DataGrid ..

أنا أريد طباعة جميع محتويات الفورم Textbox + Datagrid ..

أرجو المساعدة .. ولكم جزيل الشكر

post-262593-080497100 1341134596_thumb.j

المرفقات
sfsf.jpg
#2
Bavarian85 كتب:

أخوتي الكرام ...

تحية طيبة لكم جميعاً ..

أرجو منكم مساعدتي في إيجاد كود طباعة مناسب لهذا البرنامج مع العلم انني حاولت باستخدم الكريستال ريبورت باستخدام Dataset & DataTable ولكن فقط يطبع محتويات الـ DataGrid ..

أنا أريد طباعة جميع محتويات الفورم Textbox + Datagrid ..

أرجو المساعدة .. ولكم جزيل الشكر

السلام عليكم اخي العزيز

يوجد لديك في النموذج اثنين من الجدوال اعتقد ذالك بيانات الرأس Head Details وبيانات الصفوف او الحركة Invoice Details ومن خلا البحث عن رقم المسلسل الاساسي PrimaryKey في جدول الرأس مع ربطه بجدول السطور عن طريق inner join تستطيع ان تأتي بالبياانات الظاهرة علي النموذج لديك وطبعا بعد ذلك تستطيع ارساله كمصدر بيانات لملف الريبورد للكريستال data source ارجو ان اكون ظهرت لك بعض الافكار

بالتوفيق

#3

بسم الله الرحمن الرحيم

اليك الكود و اى شئ غير واضح مستعد للشرح :

ImportsSystem.Data

ImportsSystem.Data.OleDb

Public Class Form7

Private SubForm7_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim CryAs NewCrystalReport2

Dim ds As New DataSet

'أخد الداتا من المعروضة فى الجريد

DimsqlQRY As String= "SELECT * FROM invodet where invono= "& Form5.TextBox1.Text & " "

DimSqlDataAdapter As NewOleDbDataAdapter(sqlQRY, objconn)

Try

objconn.Open()

SqlDataAdapter.Fill(ds, "invodet")

Cry.SetDataSource(ds)

Dimtxt As Object 'Date

Dimtxt1 As Object 'Cusm Name

Dimtxt2 As Object ' invoice no

Dimtxt3 As Object ' Total

'عرض الداتا فى حقول التكس بوكس على التقرير

txt = Cry.Section2.ReportObjects("Text11")

txt.text =Form5.DateTimePicker1.Text

txt1 = Cry.Section2.ReportObjects("Text12")

txt1.text = Form5.ComboBox1.Text

txt2 = Cry.Section2.ReportObjects("Text13")

txt2.text = Form5.TextBox1.Text

txt3 = Cry.Section4.ReportObjects("Text2")

txt3.text = Form5.TextBox5.Text

CrystalReportViewer1.ReportSource =Cry

Catchex As Exception

MsgBox(ex.Message)

Finally

objconn.Close()

End Try

End Sub

End Class

تم تعديل هذه المشاركة بواسطة أحمد خميس راشد في 7 يوليو 2012 في 21:10

أحمد خميس راشد

جمهورية مصر العربية

Bibo_spider@hotmail.com

#4

أحمد خميس راشد Icon

السياد الفاضل

سوف اطلب منك طلب صعب لكن عندك سهل

برجاء عمل مشروع بسيط لانني زاخرين يريدون

ولكم هناك صعوبات مثل كيفية عمل التقرير ولا توجد قاعدة بيانات

واذا كانت موجودة كيفية ارسال بيانت الجريد الي التقرير

المهم مثال كامل للموضوع

شكرا

#5

ستجد هنا مثال مفيد مشابة لطلبك

/index.php?showtopic=241892

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#6

الاستاذ محمد تركي

حضرتك ممتاز في قواعد البيانات والتقارير

وايضا ليس من اختصاص المنتدي تلبية كل الطلبات

ولكن

طمعا في كرمك

يا ريت تحول طلب الاخ الساءل الي مشروع بيسط

لانني واخرين محتاجين هذا الموضوع

لان سهل عليم عمل ذلك لكننا نحن لا نتقن الموضوع

ولا تقل لي ضع مثال للتعديل وسوف نعدل عليه

حضرتك اعمل مثال بسيط لننا نستفيد من كل ما تفعله

شكرا

#7

الاخ atefkhalf2004

ان شاء ارفع اليك مثال قريبا جدا , كنت قد جهزت اليك سورس كود و لكن ادارة رفع الملفات فى المنتدى ترفض رفع الملف سوف احل هذه المشكلة قريبا

او ان تكتب ايميلك و ارسل اليه السورس كود

أحمد خميس راشد

جمهورية مصر العربية

Bibo_spider@hotmail.com

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…