DataReport

يجب عليك تخزين هذا النص في قاعدة بيانات ثم ربطها data report

أخي vb6

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

الموضوع بسيط جداً على ما أظن

فقط أعلن عن متغير عام في موديل جديد

ثم خزن العنوان في هذا المتغير

ثم ضع هذا المتغير في خاصيه العنوان لأداة العنوان على الداتا ريبوبرت في حدث Activate

جرب هذه الطريقه وإذا ما نفعت أبلغني وسأحوال وأخبرك بالحل الصحيح...بمشيئة الله

وشكراً,,,,,,,

يا أخ خالد هذه الطريقة ليست عمليه

أما طريقة ألأخ عبد الملك فقد حاولت فلم أنجح

يمكن اجراء ذلك بواسطة جملة استعلام كما ياتى :-

Select field1,field2,... into New table where field1= text1

حيث field1,field2 اقصد بها الحقول التى تريد اظهارها فى التقرير

بعد ذلك قم بوضع اسم الجدول Newtable فى الCommmand المناسب

يا أخي لقد تم ربط الجدول مع التقرير

سؤالي هو كيف يمكن ربط text مع أداة عنوان في التقرير دون ربطهما بالجدول أصلاً لكي يتسنى كتابة المستخدم نص ومن ثما يظهر في التقرير

ضع label فى راس التقرير او راس الصفحة ومن ثم قم بتعديل الكود التالى حسبما تريد

Dim s As String

s = " بسم الله الرحمن الرحيم "

RepName.Sections("rptsHeader").Controls("lblHeader").Caption = s

شكراً يا أخي على هذا الرد

ولكن هذا الكود أين يوضع هل في داتا ربورت أم في الفورم التي عن طريقها يتم الدخول إلى داتا ربورت

قبل الامر show الخاص بعرض التقرير

RepName.Sections("rptsHeader").Controls("lblHeader").Caption = s

حيث RepName تعنى اسم التقرير ,rptsHeader اسم ال(label) الموجود فى راس التقرير والذى ستظهر به "بسم الله الرحمن الرحيم"

الأخ هيال إن صح الإسم شاكر ومقدر على مجهودك وسوف أحاول تنفيذ الكود وإخبارك بالنتيجة ، شاكر للمرة الثانية .

أخي الكريم هذا هو الحل

dataenvironment1.sections("section4").controls("label4").caption=text1.text

طبعاً هذا الكود يوضع في زر امر أظهار الداتا ريبورت

وعمل هذا الكود هو نقل معلومه من الفورم الى التقرير

ولكم تحياتي

الكود اللى ماشى معى مع تعديل بسيط

datareport1.sections("section4").controls("label4").caption=text1.text

مشكورين

لاننى كنت ابحث فعلا على هذا الكود من فترة