[alma_fandi]

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

ارجو الحل  


الداتا  جريد ما بتعرض محتويات الريبورت

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

   

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

     
        Dim rep As New count
      rep.SetDataSource(dt)

       

        Dim q As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] <1)")
        rep.SetParameterValue("m1", q)

        Dim w As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] <1)")
        rep.SetParameterValue("g1", w)

        Dim t As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 1 AND 4)")
        rep.SetParameterValue("m2", t)

        Dim r As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 1 AND 4)")
        rep.SetParameterValue("g2", r)

        Dim u As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 5 AND 9)")
        rep.SetParameterValue("m3", u)

    Dim n As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 5 AND 9)")
        rep.SetParameterValue("g3", n)

        Dim i As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 10 AND 14)")
        rep.SetParameterValue("m4", i)

        Dim a As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 10 AND 14)")
        rep.SetParameterValue("g4", a)

        Dim s As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 15 AND 19)")
        rep.SetParameterValue("m5", s)

        Dim d As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 15 AND 19)")
        rep.SetParameterValue("g5", d)

        Dim b As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] >20)")
        rep.SetParameterValue("m6", b)

        Dim f As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] >20)")
        rep.SetParameterValue("g6", f)


        Dim z As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='كلب') ")
        rep.SetParameterValue("dog", z)
        Dim x As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='جرذ') ")
        rep.SetParameterValue("rat", x)
        Dim c As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='حمار')")
        rep.SetParameterValue("donky", c)
        Dim m As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='ماعز')")
        rep.SetParameterValue("goat", m)
        Dim y As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='قط')")
        rep.SetParameterValue("cat", y)
        Dim ee As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='اخرى') ")
        rep.SetParameterValue("ather", ee)



        Dim eqe As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([state] ='معروف') ")
        rep.SetParameterValue("know", eqe)
        Dim yw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='الراس') ")
        rep.SetParameterValue("head", yw)
        Dim yew As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='الجذع') ")
        rep.SetParameterValue("j", yew)
        Dim yuw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='ساق') ")
        rep.SetParameterValue("leg", yuw)
        Dim yyw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='القدم') ")
        rep.SetParameterValue("foot", yyw)
        Dim ysw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='اليد') ")
        rep.SetParameterValue("hand", ysw)
        Dim ynw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='اصبع اليد') ")
        rep.SetParameterValue("finger", ynw)

        rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
        rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)
     
        CrystalReportViewer1.ReportSource = rep
        CrystalReportViewer1.Refresh()

    End Sub