04-05-17, 01:44 AM
(آخر تعديل لهذه المشاركة : 04-05-17, 04:50 AM {2} بواسطة 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