omani

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

فعلا وانا معاك في ذلك فانا لم استخدم الداتا اينفيرمنت إلا هذه المرة فقط بناءً على طلب احد الاخوة الاعضاء أما بالنسبة بدون الداتا ايفيرمنت فالداتا ريبورت يمكن تطويعها بطرق كثييرة ولك الشكر . تحياتي

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

طرق البحث في التواريخ تفضل /index.ph...T&f=158&t=70644 تحياتي

السيرفس باك 6 Service Pack 6 http://www.microsoft.com/downloads/details...&displaylang=en الرن تايم للسيرفس باك 6 Runtime service pack6 http://www.microsoft.com/downloads/details...&displaylang=en السيرفس باك 5 Service pack 5 http://www.microsoft.com/downloads…

بالنسبة لكون أن الكريستال بطيء فهو لان النسخه غير موثقة وفي كل مرة يطلب لها ابديت أما استخدام فورمات منفصلة ام استخدم فورم واحد فاستخدام فورم واحد يكفي إن كان بالامكان أن تبعثي هذه الجزئية من برنامجك لاطلع عليها واوافيك بالطريقة الصحيحة والأفضل أكون لك شاكرا ك…

أختي هل تقصدين بأنك صممتي لكل نوع تقريره الخاص أم تعرضين كل النتائج في تقرير واحد ؟ إن كان تقرير واحد فالرد السابق يفي بالغرض وإلا فاستخدمي عبارة select Case أو IF تحياتي

أختي الكريمة هنا أفضل طريقة أن تمرري جملة الاس كيو الى في متغيير من نوع String للفورم التالية وبالتالي سوف يقوم البرنامج باظهار التقرير بناءً على جملة الاسكيو ال الواردة في المتغير سترينج مثال pablic SQL as String Sql="select * form MyTable Where "تضع الشرط بن…

أخي يمكنك استخدام الجملة التالية وبالتفصيل : اسم التقرير القسم اسم الكنترول النص المراد طباعته DataReport1.Sections("Section1").Controls("Label1").Caption = "ضع النص هنا " تحياتي

يمكنك الحصول على كل ما تريد في توقيعي تحياتي

في الكريستال ريبورت أعتقد أن خاصية Save Report Data هي المسئولة عن ذلك قم بإعطاء False لتحل المشكلة تحياتي

هذا مثال لكيفية عمل Grouping من خلال الداتا ريبورت من تصميم الاخ هيثم القلاف من منتدى الابداع /index.ph...e=post&id=21616 تحياتي

أختي الكريمة الاستبدال يختلف عن الحذف فطريقة الاستبدال هي كالتالي : فلنفترض ان الجدول مفتوح لديك والبيانات المطلوب استبدالها موجودة في الفيلد الثاني من الجدول Dim Rs as new Adodb.Recordset 'فتح الجدول Rs.OPen " select * from MyTable",dbConn, adOpenDynamic, adL…

أخي الكريم هذا يعتمد على نوعية الجداول لديك فإن كان هناك ما يربط الجدولين كرقم الموظف مثلا فيجب أن يكون هذا الرقم في الجدولين أي أنه كالتي في الجدول الاول الأول يوجد حقل اسمه ID وفي الجدول الثاني يوجد حقل اسمه ID راح تكون جملة الاسكيوال كالتالي : Dim Rs as new…

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

بهذه الجملة تستطيعين حذف جميع السجلات من الجدول dim Rs as New Adodb.Recordset Rs.Open "Delete * from MyTable" Set Rs=Nothing تحياتي

أختي الكريمة دينا رد الاخت رزان في محله ولكن أولا مرري قيمة الكومبو الموجودة في الفورم لتصبح في المتغير المحجوز باسم N1 وبعد ذلك قومي ببقية الكود وجملة الاسكيو ال في الفورم الخاص بالريبورت يعني في Form2 أي أنه تصبح الجملة لديك كالتالي : أولا في زر إظهار التقري…

أختي الكريمة بالنسبة لتقارير الكريستال المبنية داخل الفيجوال هي نفس تقارير الداتا ريبورت تقربا ولكن بإمتيازات تحكم أفضل بكثيير من الداتا ريبورت وتضاف من قائمة Project ستجدين تبويب الكريستال ريبورت من ضمن القائمة والصورة التالية توضح الطريقة : أتمنى أن تكون تفي…

إخواني الكرام هذا مثال أعددته لكيفية التعامل مع الداتا اينفيرومنت وللأمانه هذه أول مرة أتعامل معها وتفاجأت بسهولة التعامل مع الداتا اينفيرومنت المثال يعطي الفلترة حسب شرط معين ,ايضاً الغاء الفلترة وكذلك اختيار جمل اسكيو الى وأيضاً تحديد جداول والى أخرة وسهلة ل…

تفضل هذا مثال عن كيفية التعامل مع الداتا اينفريمنت تحياتي التعامل مع الداتا اينفيرومنت.zip