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

فلتره الكريستال

مغلق
بدأه HASHAD_MAHMOUD في 28 أغسطس 2005 · 3 رد · 533 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اولا : انا اسف لكثره الاسئله

ثانيا :

كنت قد قمت بفلتره لرقم صنف معين وقد ظهر فعلا في الداتا جريد واستخدمت الكود التالي 

    Me.DataView1.RowFilter = "sanfno =" & Me.TextBox1.Text.ToString

        Me.DataGrid1.DataSource = Me.DataView1

وعند اخراج الريبورت الذي صممته خارجيا يعني عملته بالكريستال 10 ثم ادرجته ضمن الفيجوال واسم ملف الكريستالReport3 وكتبت الكود التالي+

  Dim rpt As New Report3

   CrystalReportViewer1.ReportSource = rpt

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

فكيف اجعله يقرا من الداتا فيو DataView1 مثلا او اجعله يقرا من الداتا ست dataset

او كيف اجعله يعمل فلتره للتقرير اي كما سيكتب المستخدم في TextBox1 يظهر التقرير علي اساسه

سبحان الله وبحمده سبحان الله العظيم

لا اله الا الله محمدا رسول الله

اللهم اغفر للمسلمين والمسلمات والمؤمنين والمؤمنات الاحياء منهم والاموات

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

حمل كريستال ريبورت 10 اربعه اصدارات

ww12kz.jpg

hashad.jpg

#2

السلام عليكم

دة مثال كان طلب منى احد الاخوة فى المنتدى شرح وكنت عملت لية شرح فيدو ان شاء الله يكون مفيد ليك

waleedhm.rar

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#3

شكرا ياwaleedhm

المشروع افادني فلا وقد نفذته واشتغل معايا بارك الله فيك يا باشا وجعلها في ميزان حسناتك

سبحان الله وبحمده سبحان الله العظيم

لا اله الا الله محمدا رسول الله

اللهم اغفر للمسلمين والمسلمات والمؤمنين والمؤمنات الاحياء منهم والاموات

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

حمل كريستال ريبورت 10 اربعه اصدارات

ww12kz.jpg

hashad.jpg

#4

لو سمحت يا أخ Waleedhm( أو محمد حسين لو مكنتش غلطان :) ) ما الخطأ فى هذا الكود؟؟؟

Dim rp As New rptPur_Cust
        Dim pf As New ParameterField
        Dim pfs As New ParameterFields
        Dim rf As New ParameterRangeValue
        pf.ParameterFieldName = "Cust_ID"
        rf.StartValue = Val(TextBox1.Text)
        rf.EndValue = Val(TextBox2.Text)
        pf.CurrentValues.Add(rf)
        pfs.Add(pf)
        rv_Pur_Cust.ParameterFieldInfo = pfs
        rv_Pur_Cust.ReportSource = rp

كلما اقوم بتشغيل البرنامج واطلب التقرير يعود بكافة بيانات العملاء وليس حسب ما قمت بتحديدة فى الكود

فما سبب ذلك؟؟؟؟

هذا الموضوع مغلق.

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

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

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

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

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