عندي مشكلة عرض التقرير . كيف اعرض تقرير داتا ريبورت ياخذ بياناته من textbox

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

اضف التكست بوكس التي تريد الى الداتا ريبورت (عند تصميم الداتا ريبورت) , ثم اربط التكست بوكس وذلك باعطاءه القيمه

data field -------> اسم الحقل الذي تريد .

يمكن الشرح غامض بعض الشيء , لكن ان شاءالله قريبا سوف اعطيك ملف مرفق فيه مثال يعطيك الاجابة على سؤالك بشكل كامل

أخي الغالي

لو تقصد انك عامل فورم فيها تكست بوكس او اكتر وعامل زرار طباعة وعاوز الداتا ريبورت ياخد قيم من التكست بوكس دي ويطبعها

فده بيكون عن طريق عمل داتا ريبورت وتحط مجموعة من Label بعدد التكست بوكس اللي انت عاوز تطبعها

وبعد كده بتخلي كل Label ياخد قيمة من التكست بوكس بالكود ده

DataReport1.Sections("Section4").Controls("Label1").Caption = Text1.Text

Section4 - ده اسم الجزء اللي انت حاطط فيه ال Label

Label1 - ده اسم ال Label اللي هانحط فيه القيمة

Text1 - ده التكست بوكس اللي فيه القيمة المراد طبعها

طبعا هاتكرر الكود اللي فات ده بعدد التكست بوكس اللي عندك

لكل تكست بوكس تكتب السطر ده مع تغيير اسم التكست بوكس والLabel ولو في تغيير في اسم Section غيره برده

بس خد بالك انت لازم تحدد لل DataReport ال DataSource بتاعته

لكن لو انت كمان مش هاتطبع حاجة من قاعدة البيانات بتاعتك

ومش عاوز تحدد ال DataSource فممكن تعمل Recordset فاضي وتخليه هو DataSource

وفي الحالة دي ماتحطش حاجة في DataReport في الجزء الخاص ب Detail

لأن ال Recordset فاضي وبالتالي اي حاجة هاتتحط مش هاتتعرض

ودي هاتكون بالكود ده

Dim rs As New ADOR.Recordset
rs.CursorType = adOpenDynamic
rs.Fields.Append "ID", adUnsignedInt
rs.Open
Set DataReport1.DataSource = rs

بس ماتنساش تضيف Microsoft ActiveX Data Objects Recordset 2.8

من قائمة Project وبعدين References

المثال المرفق فيه فورم فيها 10 تكست بوكس

وداتا ريبورت فيها 10 Label موجودين في الجزء الخاص ب رأس التقرير

وفي زرار للطباعة وأخر للعرض

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

أرجو ان اكون وفقت في إجابتك

وأرجو ان تسامحني على اي سهو أو تقصير

example.zip

الف شكر اخواني فعلا ساعدتوني الله يجزاكم كل الخير