تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
expression
#1
عملت
expression
كود :
=IIf(Fields!Type.Value = "جرذ","نعم","لا")
ب report viewer

شغال  طبيعي  بيعرض  ( اذا كان  نوع  الحيوان جرذ يضع بالحقل نعم  غير ذلك يضع لا )


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

حاولت من خلال formula fields

بس الكود خطا

   
الرد
تم الشكر بواسطة:
#2
تعديل iif
PHP كود :
iif({Table1.Type}="جرذ","نعم","لا"
الرد
تم الشكر بواسطة: alma_fandi
#3
اشكرك سيد عبدالله


دائما المنقذ

بما انك  متواجد

سيدي

عملت  كل الى  حكيت لى اياه و دائما لديك  الحل

الان  
   

لاحظ الكومبوكس ببحث من خلال  فترات  عمرية  ( يعني بيعرض الاشخاص الذين اعمارهم  بين  الفئات العمرية حسب الكومبوكس 2

كيف بطبق  هالشي  ع  البرنامج
كود :
Imports System.Data.OleDb

Public Class frmReport

   Private Property dt As Object

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       frmstatsitces.Show()

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       'الحالات التي حدثت
       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE  ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)

           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New done
       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()

   End Sub


   

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       ' الحالات  المستكملة
       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE  ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)

           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New CompleteReport1

       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()

   End Sub



   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       'الكومبوبوكس

       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE ([Sex]=@sex) AND ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)
           da.SelectCommand.Parameters.AddWithValue("@sex", Me.ComboBox1.Text)
           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New allReport1

       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()

   End Sub


   Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE ([state]=@state) AND ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)
           da.SelectCommand.Parameters.AddWithValue("@state", Me.ComboBox5.Text)
           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New allReport1

       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()
   End Sub

   Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE ([type]=@sex) AND ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)
           da.SelectCommand.Parameters.AddWithValue("@type", Me.ComboBox4.Text)
           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New allReport1

       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()
   End Sub

   Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE ([place]=@sex) AND ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)
           da.SelectCommand.Parameters.AddWithValue("@place", Me.ComboBox3.Text)
           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New allReport1

       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()
   End Sub

   Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

   End Sub


End Class
الرد
تم الشكر بواسطة: عبـدالله , عبـدالله
#4
هذا فورم جديد Form1 وضعت فيه طريقة بحث شاملة، للإستفادة منه أو من الكود،
قم بإضافته للمشروع، واجعله فورم بداية التشغيل فقط لتجربته.

ملاحظة:
أنت تعتمد في عدة أعمدة على قيمة نصية، وهذه الطريقة قد تسبب لك مشكلة في البحث
وذلك عند عدم تطابق حرف ما منها في حالة لم يدقق المستخدم الذي يقوم بادخال البيانات،
والخطأ يكون مثلاً في المسافة( ) أو الألف(ا،أ،إ،آ) أو التاء(ة،ه) أو الياء(ي،ى) أو التشكيل وغير ذلك.


الملفات المرفقة
.rar   Form1.rar (الحجم : 5.84 ك ب / التحميلات : 31)
الرد
تم الشكر بواسطة: Amir_Alzubidy , tryold , alma_fandi , alma_fandi
#5
اهلا بكم جميعاً
انا متابع لهذا الموضوع
و اشكر الاخ عبد الله على المثال
شكراً جزيلاً
الرد
تم الشكر بواسطة: عبـدالله , عبـدالله
#6
نحن متابعين لهذا الموضوع

نشكر الاخ عبدالله على سرعة رده ومساعدته

يا اخ عبدالله تذكرني بالاخ مساعدة الله يذكرة بالخير ويوفقة على ما بذله من مساعدات للاخوان بهذا المنتدى
Mish3l
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , عبـدالله
#7
بالفعل ،
و انا ايضا انتظر عودة الاخ مساعدة ، و الاخ ابو عمر ، و الاخ ممدوح ، و كثير من الاخوة ..
اسأل الله ان يحفظهم اينما كانوا .
الرد
تم الشكر بواسطة: عبـدالله
#8
اشكر تواجد  الجميع  

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

انا بدخل الداتامن خلال كومبوكس وبعمل بحث عنها من خلال كوبوكس ( يعني بجبر المستخدم انه يدخل نفس الشي )
انا  عملتها ع الاكسس
واستعملت فيها كودات الفيجوال  
خليني  جرب
الرد
تم الشكر بواسطة: عبـدالله
#9
سيد عبدالله  
عملت تعديل ع الفورم  الى انتا عامله

'حسب العمر
       If ComboBox2.SelectedIndex > 0 Then
           Select Case ComboBox2.SelectedIndex

               Case 1 'أقل  من سنة
                   filters.Add("[age] < 1")

               Case 2 ' من 1 - 4 سنة
                   filters.Add("[age] BETWEEN 1 AND 4")

               Case 3 ' من 5 - 9 سنة
                   filters.Add("[age] BETWEEN 5 AND 9")

               Case 4 ' من 10 - 14 سنة
                   filters.Add("[age] BETWEEN 10 AND 14")

               Case 5 ' من 15 - 19 سنة
                   filters.Add("[age] BETWEEN 15 AND 19")

               Case 6 ' من 20 سنة وأكثر
                   filters.Add("[age] >= 20")
انا  بعمل البحث  من خلال العمر  مو تاريخ الميلاد ( لان  تاريخ الميلاد هاد فعليا تاريخ الزيارة  انا  خليته بسم تاريخ الميلاد  )
من  سبع  ساعات  وانا بحاول بالبرنامج  ( مو حابب غلبك اكثر )
بحاول ضيف البارامترات بعد ربط التقرير بقاعدة البيانات مباشرة

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

عملت تاريخين  للفلتر

   

عمل فلتر  للداتا جريد  بس  ع الريبورت بيعطي فورم اختيار التاريخ
الرد
تم الشكر بواسطة: عبـدالله
#10
التعديل الذي قمت به صحيح،

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


الملفات المرفقة
.rar   Form1.rar (الحجم : 6.04 ك ب / التحميلات : 27)
الرد
تم الشكر بواسطة: alma_fandi



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم